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La collaboration entre JEDI et FIG HAMBOURG devient engin autre qu'un missile peut pénétrer sur un 


effective avec la diffusion par JEDI de la version territoire étranger. Le cas du jeune allemand n'est 
VolksFORTH83. Ainsi, avant même que l'idée ne soit pas unique. Nous avons eu pour notre part, en 
lancée par les politiciens européens avons nous France, une histoire d'évasion par hélicoptère de 
unis les FORTHS français aux FORTHS allemands (arf, la prison de la Santé alors que le survol de la 
arfll Plus on est de fous...). C'est pouquoi les capitale est interdit!!, 


illustrations de JEDI sont inspirés de la rock- 
culture germanique (KRAFTWERK en couverture si vous Le thème de la bombe atomique ‘sous le paillasson' 


n'avez pas reconnu). SOuhaitons que l'on puisse a déjà été exploité dans de nombreux romans (un 
appliquer à VolksFORTH83 le même slogan qu'à la baril de carburant dans le CINQUIEME CAVALIER, un 
coccinelle de chez Volkswagen: "née pour durer". avion de lignes régulières dans ‘30 SECONDES SUR 


NEWYORK,...), À quand le camping car nucléaire? 
Et puisque nous en sommes à parler de nos voisins 
d'OutreRhin, saluons l'exploit de ce jeune pilote Soyons humbles, Mathias RUST a rendu plutôt service 


qui a atteri sur la place rouge. Le risque était en rendant évident les défaut de la cuirasse: la 
grand, mais à travers cet acte on peut se poser routine et la complexité de la tâche de 
quelques questions concernant la défense d'un surveillance. En conclusion, si les hommes sont 
territoire, que ce soit L'URSS ou tout autre pays. faillibles, que peutil en être des systèmes experts 
Une initiative de défense stratégique (guerre des qui seront chargés d'assurer la défense dans le 


étoiles) n'estelle pas caduque si n'importe quel projet IDS américain? 
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ABASE II 
NI LANGAGE, NI PROGRAMME 
LA NOTION DE PROGICTEL 
ET LA GESTION DE PASES DE DONNEES 


par Marc PETREMANN 


La gestion des données reste le point faible de la 
majorité des langages informatiques. De cette lacune est 
née une nouvelle génération de produits, ni logiciels, ni 
langages, les PROGICIELS spécialisés dans la gestion de 
bases de données dont dBASE est le meilleur exemple 
d'illustration de ce nouveau concept. 


PREMIERE APPROCHE D'UN PROGICTEL 


Le fonctionnement de tout système informatique nécessite 
la présence d'un certain nombre d'accessoires ou 
périphériques, et de logiciels de base. La palette 
minimale du gestionnaire est constituée par un tableur, un 
traitement de texte et un système de gestion de base de 
données. Pour être efficace, le gestionnaire doit 
connaître quelques rudiments de programmation, mais pas 
question pour lui de perdre son temps à programmer. Ceux 
qui ont essayé de gérer un fichier en Basic comprendront, 
non que Basic soit un muvais langage, mais les outils 
nécessaires sont longs à programmer et difficiles à mettre 
en oeuvre. 


De même, il n'est pas question d'utiliser une application 
toute faite, sauf si vous destinez votre micro à une tâche 
très spécifique. Il faut donc envisager l'aqquisition d'un 
outil alliant simplicité et efficacité. 


L'outil logiciel répondant le mieux à nos désirs se nomme 
dBASE. Sous ce nom se cache une famille de logiciels qui a 
fait ses preuves sur une large gmme de matériel. D'abord 
implanté sur la CP/M, la version dBASE II est 
devenue dBASE III et dBASE III+ sous MSDOS. Dans la suite 
de notre propos, nous n'allons pas entrer dans les détails 
des différentes versions, mais nous attacher plus 
particulièrement à illuster en priorité le concept BASE 
commun à cette gamme de produits. 


Le système de gestion de données dBASE dispose d'un 
interpréteur donnant accès à des fonctions puissantes: 


- création et définition d'un fichier 

- sélection milticritère 

- tri et/ou indexation 

- impression sur écran/imprimante/disque 


11 dispose également d'un éditeur plein écran simplifié 
permettant la création d'un fichier de commandes. Mais 
pour de grosses applications, on utilisera de préférence 
un traitement de texte. 


Un utilitaire nommé ZIP permet de créer un fichier de 
commande où de format à partir d'un écran de saisie. 


La version MSDOS peut être équipée en option d'un 
compilateur, d'un module mathématique, d'un traducteur 
transformant un fichier de commandes dBASE en langage C. 


Les données gérées par dBASE proviennent le plus 
généralement d'un fichier créé par BASE, mais il peut 
aussi gérer un fichier créé sous BASIC, PASCAL, FORTE et 
même d'un fichier créé manuellement à partir d'un 
programme de traitement de texte comm WORD ou WORDSTAR. 


Le programme BASE gère les fichiers de données (.DBF), 
d'index (.NDX), de commandes (.CMD) et de format (.EMT). 
I1 permet également l'édtion de rapports simples à partir 
de la commande REPORT. 


LA CREATION D'UN FICHIER DE DONNEES 


Une fois dBASE activé, la première opération est la 
création d'un fichier. Pour œæ faire, il suffit de taper 
CREATE <nom où <nam est le nom du fichier à créer. 
Prenons pour exemple, car iln'y a rien tel que les 
exemples, le cas d'un directeur d'école souhaitant 
réaliser quelques statistiques sur la notation des élèves 
de son établissement (ici petit coup de coude aux 
directeurs d'écoles essayant de réaliser ce petit travail 
sur du matériel ne disposant pas de GBASE, sadisme 


oblige...). Pour ce faire, il lui faut le nom des élèves, 
la classe de l'élève et la note moyenne dans une matière 
générale. Il définira donc son fichier nommé NOTES come 


suit: 


STRUCTURE FOR FILE: NOTES 
NUMBER OF RECORDS: 00000 
DATE OF LAST UPDATE: 00/00/00 


PRIMARY USE DATABASE 


FLD TYPE WIDTH D NAME 
001 C 20 ELEVE 
002 C 5 CLASSE 
003 N 2 (e) NOTE 


On supposera une notation sur 20. Nous réserverons 20 
caractères pour le nom, 3 caractères pour la classe (CPE, 
CH, CM, etc...). Dès que la structure est définie, dBASE 
propose de commencer la saisie. Donc, si vous savez ce que 
vous désirez comme fichier, même avec 20 champs (ou plus), 
vous pouvez commencer une saisie dans la minute qui suit 
la création du fichier. 


La saisie des données est présentée de manière simplifiée, 
mais autorise les manipulations ‘plein écran'. L'option 
d'insertion est activée/désactivée par appui sur CTRL-V. 
Exemple d'écran de saisie: 


# 1 

ELEVE : ADALBERT : 
CLASSE :CPE: 

NOTE 512: 


Le numéro figurant sur la première ligne correspond à la 
clé de l'enregistrement en cours dans le fichier. Avec un 
peu de patience, notre directeur cobaye rentre ses quatre 
cents références (ou moins pour une école qui n'est par 
surchargée, ...ou plus...). Corsons un peu le problème en 
signalant qu'il pointe les dossiers dans un ordre 
quelconque. 


TRIER OÙ INDEXER 


En premier lieu, l'opérateur peut vouloir remettre 
certaines références dans l'ordre alphabétique. Pour ce 
faire, il a le choix entre le tri et l'indexation. Le tri 
est lancé en tapant la commande SORT: 


SORT ON ELEVE TO NOTE 


ce qui va créer un fichier NOTES trié par référence 
ELEVÉ. L'utilisation de ce fichier est activée par: 


USE NOTES 


Si votre fichier est d'une taille conséquente, l'opération 
de tri risque de prendre quelque temps. De plus, le 
fichier généré ne peut être Le fichier courant et sa 
taille sera identique au fichier initial. Si notre 
directeur souhaite un fichier trié par nom d'élève st un 
autre trié par notes, il devra générér deux autres 
fichiers. . 


L'indexation permet de générer un index se rapportant au 
seul champ servant de critère pour le tri. L'indexation 
par nom est réalisée par: 

INDEX ON ELEVE TO NCMS 


bien 
fichier 


ce qui génère un fichier NOMS.NX de taille 
inférieure au fichier de référence. Un autre 
d'index par note est créé en tapant: 


INDEX ON NOTE TO NOTES 


EDITION PAR CRITERE 
Dès maintenant, et toujours sans taper une seule ligne de 
programme, on peut éditer le contenu de notre fichier en 
totalité où partiellement: 


USE NOTES 
LIST 


liste la totalité du contenu du fichier NOTES 


LIST ELEVE,CLASSE FOR NOTE 10 
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affiche la liste des élèves et la classe des éléments 
ayant une note supérieure à 1 


Cette même liste peut être obtenue par ordre alphabétique 
en activant l'index: 


USE NOTES INDEX NOMS 

LIST ELEVE FOR CLASSE='CPE' .AND. NOTE 10 

affiche la liste des élèves par ordre alphabétique 
travaillant en classe CPE et ayant une note supérieure à 
10. 


Pour plus de clarté, la condition peut être parenthèsée: 
LIST ELEVE FOR CLASSE='CMi' AND. (NOT 10 .AND. NOTK-=15) 


affiche dans les mêmes conditions que précédemment le nom 
des élèves ayant une note supérieure à 10 et inférieure ou 


égale à 15. 


FAIRE UN RAPPORT 


À partir de ces éléments, notre cher directeur qui a 
l'esprit perfectionniste, exprime le voeu d'établir des 
rapports plus présentables afin de les soumettre à son 
académie pour soutenir une demande de budget. La commande 
REPORT sera utilisée de La mnière suivante: 


REPORT FORM TABLEAU 
ENTER OPTIONS, M=LEPT ,LeLINES/PAGE, W=PAGEWI TH 
PAGE HEADING? (Y/N) N 

DOUBLE SPACE REPORT? (Y/N) N 

ARE TOTAL REQUIRED? (Y/N) N 

COL WIDTH,CONTENTS 

001 22,ELEVE 

ENTER HEADING: NM;=== 

002 8,CLASSE 


ce qui peut être suffisant pour un premier essai. 
L'édition du contenu d'un rapport peut être paramétrée: 


USE NOTES INDEX NOMS 
REPORT FORM TABLEAU FOR NOTK10O .AND. CLASSE 'CPE' 


ce qui n'est guère plus compliqué que du Basic, mais dont 
le résultat aurait demandé infiniment plus de temps à 
programmer dans ce même langage. 


CREER UN FICHIER DE COMMANDES 


Mais les exigences de notre vénéré directeur s'affinent 
avec ses compétences de gestionnaire de base de données. 
I1 souhaite mintenant exploiter ces données à partir d'un 
programme de traitement de texte. Pour ce faire, il doit 
d'abord créer un fichier de commande réalisant une édition 
des différents rapports, donc écrire c programme en 
ABASE. Ici apparaît une notion nouvelle, œælle de langage 
informatique. Tout comme :n langage informatique classique 
(BASIC, PASCAL, FORTH, C...) un progiciel dispose d'outils 
exécutables à partir de commandes, mais ces commandes 
peuvent être utilisées an sein d'un fichier regroupant une 
suite de commandes: 


MODIFY COMMAND EDITION 


crée un fichier de commande EDITION et passe en mode 
éditeur: 


SET TALK OFF 

SET SCREEN ON 

SET ALTERNATE TO RAPPORTS, TXT 

* ceci est le nom du fichier texte généré 
SET ALTERNATE ON 

USE NOTES INDEX NCOMS 

* premier rapport 

? "NOTES DES ELEVES DE CPE" 

° 


REPORT FORM TABLEAU FOR CLASSE-'CPE' 
© 


? "NOTES DES ELEVES DE CEL" 
5 


REPORT FORM TABLEAU FOR CLASSE-' CE ' 


etc... 


SET ALTERNATE OFF 


et le contenu de ce fichier de commande est exécuté 
tapant sous dBASE la commande: 


en 


DO HDITION 


ce qui vous laisse le temps de vous faire un petit café 
(un ordinateur connait aussi le temps partagé). Une fois 
l'édition terminée, vous disposez d'un fichier 
RAPPORTS.TXT pouvant être retouché et complété à l'aide 
d'un traitement de texte classique. 


Le progiciel ABASE dispose de structures simplifiées et 
utilisables à la mnière de celles existantes en PASCAL. 
Toutes les commandes exécutables en mode interprété 
peuvent être utilisées dans un fichier de commandes. 


La commande DO <fichier.CMD> permet l'exécution du contenu 
d'un autre fichier de commandes à partir du fichier de 
commande courant. Ta taille d'un fichier de commande est 
quelconque, dBASE exécutant séquentiellement le contenu 
des différents fichiers appelés. 


La commande QUIT TO <fichier.COM permet de lancer un 

rogramme autre qu'un fichier de commande, puis de revenir 
à la fin de son exécution pour reprendre l'interprétation 
du fichier de commindes. Un même fichier de commande dBASE 
peut ainsi exécuter un programme compilé en PASCAL, FORTH, 
C ou assembleur. 


En théorie, le langage dBASE permet de définir n'importe 
quel type d'application spécialisée dans le traitement de 
données: 


- mailing 

- comptabilité 

- gestion de stocks 
- facturation 
etc... 


Nous avons même eu connaissance d'une application dBASE 
gérant un jeu d'aventure! 

CONCLUSION 
Destiné d'abord au domaine professionnel, le progiciel 


BASE est devenu accessible notamment grâce à 
l'appartition de mtériel performant à prix abordable. Si 


l'achat de dBASE reste encore un investissement, surtout 
en ce qui concerne dBASE III+, il est largement compensé 
par l'énorme facilité d'utilisation. D'un prix plus 


abordable, la version dBASE II, disponible sous CP/M et 
MSDOS, bien que moins performante, sera l'outil idéal pour 
réconcilier l'utilisateur ayant de petits fichiers à gérer 
ou des projets plus ambitieux. 


De part sa très large diffusion, dBASE peut être considéré 
comme un langage à part entière. Diverses revues lui 
consacrent régulièrement des rubriques de programmes et 
tours de min. EE 


A For. Fahr-fahr, auf 


Ê dès mt Banana à 


ER 


LL: 
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REDACTOR, Le concept d'Intelligence Artificielle 
appliqué au domaine juridique 


par 
Edouard SAINTE-MARIE 
et Yann DESBOIS 


0 


Nous avons exposé à AVOCAT 86 un programme, nommé 
REDACTOR, que Michel ROUSSEAU nous a proposé de 
présenter dans les colonnes de JEDI. 


L'intérêt de REDACTOR réside en ceci qu'il est un 
système de communication utilisant comme unique 
règle de procédure celle de la grammaire d'un lan- 
gage humain. 


Nous avons étudié REDACTOR et fondé toute notre 
stratégie sur une analyse particulière du concept 
d'intelligence artificielle que nous considérons 
comme un jeu au sens de la théorie du même nom. 


Le but d'un jeu est toujours, et nécessairement, de 
rejoindre l'anneau W du jeu, c'est à dire de gagner 
un "dignus est entrare in nostro docto corpore". 


Les jeux technico scientifiques sont relativement 
simples. Si l'auteur vise l'académie des sciences, 
il lui faut et il lui suffit de faire alliance avec 
la majorité de cette assemblée. La plupart des 
publications visent des jeux de ce type. De là 
découlent des habitudes d'exposé. Les jeux de type 
commerciaux ou industriels sont plus simples en- 
core. Les entreprises tendent à conserver leurs 
secrets de fabrication de telle sorte que, sauf 
exception, leur règle serait plutôt la non publica- 
tion. 


Un programme est divulgué à partir du moment où il 
est sur le marché. Pour autant que REDACTOR soit 
concerné, il n'y a pas de secret que nous puissions 
protéger. Le jeu de "l'intelligence artificielle" 
est un jeu nouveau. Nous avons conçu notre straté- 
gie dans ce jeu suivant les principes de la théo- 
rie. Il n'y a pas d'arbitre qui puisse actuellement 
décider du "dignus est". L'anneau W du jeu n'est 
pas actuellement prévisible. La seule certitude est 
que le jeu est planétaire et non hexagonal. 


ELP est aux antipodes de ce qui se fait. En ce sens 
‘ nous intervenons sur le jeu en proposant des normes 
différentes, des manières de faire différentes et 
des contraintes différentes et cette action est 
cohérente au regard de la théorie. ELP est aussi un 
produit de la théorie des jeux. 


Il est notoire que la quantité de mémoire néces- 


saire à un certain corpus n'est pas fixe, elle a 
donc un minimum. Nous avons utilisé de Façon arbi- 
traire le plus petit ordinateur possible et avons 


ainsi défini un raffinement arbitraire de l'échelle 
de représentation. Ainsi, le faible encombrement 
des mémoires n'a pas été pour nous le souci pre- 
mier, mais plutôt le moyen de raffiner notre échel- 
le de représentation. La théorie enseigne en effet 
que le résultat est multiplié par la finesse de 
l'échelle et cette multiplication est commutative. 


Nous pensons, et la théorie l'enseigne, que la 
demande favorisera des programmes accessibles en 
langage humain, tel que Le français, et où l'infor- 
mation est fournie à l'être humain qui est ainsi en 
mesure de décider. Une décision récente d'une cour 
de justice américaine confirme notre opinion. Con- 
sidéré comme un premier pas dans une statégie à 
long terme, REDACTOR nous laisse espérer un milieu 
de partie jouable. 


Le but de REDACTOR est de fabriquer des actes de 
société et divers documents nécessaires à la cons- 
titution de la société. 
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Un contrat de société peut être conçu comme une 
formule dont il s'agit de remplir les blancs. 


A l'exception d'un seul symbole, une flèche, la 
conversation se déroule uniquement en français, et 
il n'y a pas d'autre procédure pour l'introduction 
des données que le français (la flèche est signi- 
fiante; elle indique qu'une question est posée ou 
reposée; mais elle est intuitivement compréhensi- 
ble; sa grammaire est assez voisine de celle de la 
fameuse souris mais elle est entièrement gérée par 
la machine). 


L'occupation en mémoire est faible, jamais plus de 
31 Ks, l'ensemble de tous les overlays peut être 
réduit à moins de 64 Ks, la consommation de place 
est négligeable: 0,2 K par participant. Le program- 
me édite un questionnaire adapté à la situation. 


L'aspect conversationnel ou convivial réside dans 
le fait que les questions soient véritablement 
adaptées à la situation. Toutes les questions uti- 
les sont posées, aucune question inutile ne l'est. 
Toute question question posée l'est en français et 
sa grammaire est strictement celle du français. 


Chaque écran questionnaire est constitué ainsi: 


- les lignes 6 à 28 sont réservées à 
d'un nombre variable de questions dont le 
lui-même n'est pas fixe. 


l'édition 
libellé 


- ces questions correspondent au parcours d'un 
arbre. Le nombre maximum de branches est sept. Les 
niveaux de précision du parcours sont variables. 


Chaque question n'est définie à priori qu'en terme 
de structure à partir de laquelle une question peut 
être ou ne pas être éditée. 


- le nombre de structures de questions est faible, 
mais les contenus des questions sont générées. On 
obtient ainsi un nombre fini mais assez grand de 
questions, ce qui permet de faire face à toutes les 
gituations envisageables. 


- le nombre total de questions peut être grossiè- 
rement évalué à 20.000 (20.000 est le nombre arron- 
di des combinaisons, mais certaines sont redondan- 
tes en raison de la symétrie du groupe ou mutuelle- 
ment exclusives, de telle sorte que le nombre réel 
de combinaisons utiles peut être très inférieur à 
ce chiffre). 


- les lignes 0 à 5 sont réservées à l'édition d'un 
résumé de l'état d'information du système qui a 
principalement pour but de rassurer l'opérateur en 
lui montrant que ses réponses ont été enregistrées 
par la machine.Eventuellement ces résumés sont des 
messages à part entière. Ils contiennent des infor- 
mations juridiques qui auraient pû être ignorées de 
l'utilisateur et dont la connaissance lui est né- 
cessaire. 


- la ligne 30 est réservée aux deux 
système: 


messages du 


l: “Pour continuer taper une touche" 


correspond à une instruction d'attente permettant 
à l'opérateur de relire l'écran. 


2: " n'" d'attente " 


indique le temps n évalué en secondes nécessaire 
pour l'exécution d'une instruction d'overlay et 
sollicite implicitement la patience de l'opérateur. 


Aux écrans questionnaires correspondent éventuelle- 
ment des écrans messages indiquant quelle est la 
réglementation applicable à la situation décrite 


par l'opérateur. —)J- 


divers 


Si une personne est libre de contracter des 


oints de vue considérés, aucun message n'est édi- 
é. Dans le cas contraire la loi ou Île règlement 
qui limite cette liberté est édité. Une personne 
peut faire l'objet de plusieurs messages, d'un ou 
d'aucun suivant sa situation. 


Pour exemple, un français mineur résidant aux USA 
aura droit à deux messages, un pour sa minorité, 
l'autre pour sa résidence étrangère, éventuellement 
cette résidence sera prise en considération dans un 
message relatif à la société elle-même (la loi 
française considère comme étrangère une société 
lorsque le montant des investissements des rési 

dents étrangers, même citoyens français, dépasse un 
certain pourcentage du capital social). 


Les temps d'opération sont courts, en moyenne quin- 
ze minutes pour l'introduction des données. Sur les 


quinze minutes consacrées au questionnaire, douze 
environ sont utilisées par l'opérateur, les over- 
lays consommant une minute, les traitements deux 
minutes. 

La probabilité d'erreur de REDACTOR, après con- 
trôle, est inférieure à une sur un million d'actes 
donc une demi période de 500.000 actes (le nombre 


annuel total de SARL constituées est de 36.000). La 
probabilité d'erreur avant contrôle est de un pour 
mille. 


Les techniques de contrôle sont élémentaires. Si 
l'on veut traiter une certaine chaîne, dont le 
traitement entraine la destruction, on fait autant 
de copies de cette chaîne qu'il est utile, de telle 
sorte que la chaîne initiale, ou l'une de ses 
copies, constitue l'élément de contrôle. 


Cette méthode de programmation peut être utilisée 
chaque fois que La question qu'on envisage de trai- 
ter peut l'être par questionnaire, indépendamment 
du but de ce questionnaire et indépendamment du 
langage particulier utilisé, tout au moins pour les 
langages qui possèdent le concept d'adjectif. 


Si l'on considère la puissance des théories em 
ployées, théorie des groupes et théories des jeux, 
le résultat fait penser à la montagne qui accouche 
d'une souris. La difficulté du problème peut s'ex- 
primer ainsi: toute culture comporte des savoir 
faire et corrélativement des prohibitions. L'ensem- 
ble des méthodes qui ont permis à nos ancètres 
d'enseigner à chacun l'art de lire et d'écrire 
agissent comme un savoir faire et comme une prohi- 
bition. Or ,; ces méthodes font partie de notre 
culture et donc de nos préjugés, c'est pourquoi la 
difficulté n'est pas d'abord dans le langage mais 
dans nos propres pré jugés. 


Dans les langages d'Europe occidentale, la phrase 
élémentaire est de type sujet/verbe/complément et 
par abréviation SVC. Pour passer d'une description 
SVC à une description mathématiquement acceptable, 
C est décomposé en CI qui correspond plus ou moins 
à l'accusatif et au datif latin, C2 correspond à 
l'ablatif et au locatif archaïque dans le même 
langage. 


Traduit en mathématique C1 est le second terme 
d'une relation R dont S est le premier. C2 est 
relatif au domaine D où cette relation est vraie, 
Similairement, le verbe V est décomposé en deux 
parties V1 V2. 


V1 dénote la relation R telle qu'elle est affirmée 
entre S/C1, V2 les éléments du verbe qui sont 
relatifs au domaine D de cette relation. 


La description SVC devient dans la nouvelle écri- 
ture xRy,D. Nous négligeons D pour nous concentrer 
sur À. Nous avons dessiné RÉDACTOR sur le cas 
particulier, R'2u, où u dénote la mesure propre (à 
une translation près). L'action de REDACTOR consis- 
te en effet à énumérer les contraintes pesant sur 


chaque participant donc à mesurer leur liberté. La 
relation R (R="instituent une société") est trans- 
formée par ' de façon à devenir une mesure r'zu. 


Lorsque la phrase exprime une mesure, 
mode d'écrire la relation xuy sous la 
usuelle y=u(x). 


il est com- 
forme plus 


Les techniques d'I.A. 


sont susceptibles d'apporter 
de grandes 


simplifications dans la plupart des 
branches de l'activité humaine. Elles sont aussi 
capables de provoquer de sérieux dégats. On nous 
permettra donc une parenthèse. 


Toutes les phrases élémentaires n'expriment pas des 
mesures: 


"Jean est un bon mathématicien" 


mesure Jean sur l'échelle contextuellement définie 
des mathématiques. 


“Jean joue avec Jeanne dans le jardin" 
ne mesure rien du tout, non plus que 


Jeanne instituent une société", 
un cas particulier. 


“Jean et 
Ru est donc bien 


Les échelles sont relatives de sorte que l'identité 
des chaînes n'implique pas l'égalité des mesures. 


"Jean joue avec Jeanne" est traduit librement de 
Noam CHOMSKY, "Jean est un bon mathématicien" est 
extrait d'un article de Jean Pierre DECLES, extrait 
qui traduit très librement aussi, devient en 
anglais: 


"Johnny is a fine mathematician" 


ce n'est pas le même sens, manifestement pas la 
même échelle si le professeur de mathématiques 
parle de son bon élève au père de celui-ci, ou si 
le professeur OPPENHEIMER parle de Johnny avec 
Klara VON NEUMANN. 


Le cas particulier R=u semble être un cas particu- 
lier d'un sous ensemble de R dont il fait partie 
qui est le cas R=S des relations symétriques (xSy 
implique ySx). Continuons à traduire le bon mathé- 
maticien: 


- dans la notation de CANTOR, 
festement "est un élément", 


cat" devient mani- 


- dans la notation de BOOLE (x=y.z) "est" devient 
“égal”. "Egal" est une relation symétrique, "est un 
élément" ne l'est pas. 


Il existe donc une opération ' telle 
C'est une opération de ce type que nous utilisons 
en transformant R en u puisque R dénote ‘"consti- 
tuent une société" qui n'est pas symétrique, tandis 
que y=u(x) implique x=u(y). 


que R'=5, 


L'opération ' définie par R'25 semble jouer un rôle 
considérable dans le mode de pensée humain. La 
mesure, la logique en dépendent. La validité de 
définie par R'=u dépend de la symétrie de l'ensem- 
ble X des x, où x dénote des objets ayant même 
mesure. 


Le raisonnement qu'on dit "magique" revient à con- 
sidérer comme symétrique une relation qui ne l'est 
pas. Il est bon de noter que ce type de raisonne- 
ment ne fut pas le fait des sorcières auxquelles on 
l'impute et dont on ne sait rien, mais le fait de 
magistrats pétris de logique romaine. » 


L'ennui des raisonnements analogiques est qu'ils 
constituent en première analyse une symétrisation, 
non pas nécessairement fausse, mais qui n'est pas 
strictement justifiée. L'avantage des analyses 
fondées sur la mesure est qu'elles le sont. Dire 
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d'une chose qu'elle est verte ou belle, c'est la 
mesurer sur l'échelle des couleurs où celle de 
l'esthétique. Le problème se complique un peu lors- 
qu'il s'agit d'opérer. Si vert est une graduation 
sur l'échelle des couleurs, véronèse associé à vert 
est un raffinement. En admettant que le nombre a 
dénote vert et le nombre b dénote véronèse, il doit 
exister une opération * telle que a*b=c, c corres- 
pondant à vert véronèse. Celà implique que le 


groupe a,b,c soit dense et compact. 


Nous nous donnons une table ainsi conçue: 


1234567 
8 9 10 


lère ligne 0 
2ème ligne 1 


Si cette table était carrée, il suffirait d'écrire 
les nombres entiers les uns à la suite des autres. 
Si de plus cette table était décimale, on écrirait: 


00 01 02 03 04 05 06 07 08 09 
10 11 12 13 .... 


lère ligne 0 
2ème ligne 1 


donc on passerait d'une ligne à l'autre par une 
concaténation : 


3213 
est évidemment 


: dénotant la concaténation qui 
dense, compacte et non commutative. 


Les échelles fournies par le langage ne sont ni 
carrées, ni décimales. Si au lieu d'une base dix 
nous acceptons l'idée d'une base variable bO pour 
vert, bl pour véronèse, en tout état de cause 
l'élément placé à la première colonne de la seconde 
ligne s'écrira 10. 


Ndir: un cas de nombres avec digits à base variable 
est celui des minutes et des secondes dans l'inti 

tulé d'une valeur de temps; exemple 2h26mn35sec; 
dans 26mn, les unités sont en base 10, les ‘di- 
zaines' en base six. 


FORTH & Rs 


Ainsi 


défini, : 
pour *. 


satisfait aux conditions fixées 


Nous nous sommes posés la question de savoir si une 
approche non mathématique permettrait d'aboutir au 
même résultat. En première approximation la réponse 
est positive. 


Dans une conception mathématique des choses, on 
mesure le sens de la phrase sur plusieurs axes, on 
pourrait aussi bien mesurer sur un seul axe, donc 
sur une séquence de n nombres entiers, à chacun de 
ces nombres correspond une action du programme. Si 
l'on permutte ces nombres, rien n'est changé tans 
qu'on permute simultanément les actions. On peut 
donc à partir de l'ensemble de mesure obtenir un 
autre enseble qui pourrait n'être ni dense, ni 
conpact, ni entier. Il ne serait pas même néces- 
saire que cet ensemble contienne au moins n. Le 
résultat serait conservé tant que la bijection 
serait maintenue. 


C'est une conclusion extrèmement satisfaisante 
parce que conforme au sens commun. Nous parlons 
français tous les jours sans aucune référence ma- 
thématique si la théorie confirme que celà se peut, 
c'est qu'elle est conforme au sens commun, et par 
la suite a quelque chance d'être vraie. 


Pour écrire ELP nous avons substitué à l'échelle 
pauvre de la langue, pauvre relativement puisque 
liée à l'appareil sensoriel humain, une échelle 
numérique tout aussi pauvre qu'elle. Ce qui nous 
intéressait n'était pas de mesurer précisément un 
phénomène mais le langage qui le décrit. Comme le 
nombre des graduations est faible, les nombres 
décrivant ces graduations sont petits, tiennent peu 
de place. Leur traitement prend peu de temps. 


En fin de compte, nous avons pris au pied de la 
lettre ce mot qu'on attribue à RutherFord: 


“qualitative is poor quantitative" 


(Questions/Reponses ) 


REPONSE 4 (A. Jaccomard, 29190 PLEYBEN). 


Récursion sans saturation de RP 


J'ai trouvé ce code dans FORTH DIMENSIONS, volume VIII/5, Jan/Feve7, 


sous la signature de C. ÉHATTUCK. Une 


petite correction était nécessaire pour l'adapter à FB3, Le voici : 


: MYSELF IN 8 [*1 THEN = NOT 
IF DUP IN! 
LAST & NAME» 

* { aot suivant } [L’13;:= 

IF COMPILE BRANCH DBODY <RESOLVE 
ELSE , 

THEN IN ! : IMMEDIATE 


* { not suivant }) 
THEN 


\ la fin ? 


\ alors rétablit le flot d'entrée, 
\ adr de compilation du mot défini 
\ fin de la définition ? 
\ alors branche au début. 
\ sinon appel récursif à La fonction. 


Voici un exenple de récursion ‘de queue’ (appel en fin de not) : 


s PGCD (5 a b -- pgcd } 
?DUP IF GSWAP OVER MOD MYSELF THEN ; 


Et un exenple de récursion ‘vraie’ : 


: FACTORIELLE (Sn --n!) 


QUP {= NOT IF DUP 1- MYSELF # THEN ; 
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UN METACOMPILATEUR SIMPLE 


par Guy T. GROTKE 
et 
Guy M. KELLY 


qe ge D he he ve à 
Résumé: en admettant un certain nombre de limitations, il 
est possible de bâtir un métacompilateur interactif, 
progressif, facile à comprendre et à utiliser. 


Les limitations: le système hôte est le système cible. Le 
code cible doit être compilé en mémoire. Seules les 
références vectorisées en avant sont permises. Les 
systèmes hôtes et cibles partagent les mêmes variables 
système. Les systèmes hôtes et cibles partagent les mêmes 
tampons disques. 


Les avantages: les mots peuvent être compilés et testés 
individuellement. Le code source à compiler est du pur 
Forth. Il ne requiert pas d'assembleur spécifique. Aucun 
mot particulier n'est à compiler. La métacompilation est 
similaire à la compilation normale. Le processus est 
simple à enseigner. 


Historique: Lorsqu'il a été question pour un des auteurs 
d'enseigner Forth à l'Université de Californie, la 
question se posa: "Quelle version?",. Un directeur du Forth 
Standard Team décréta la seule réponse possible: "le Forth 
83-Standard!". Parfait, mais où obtenir une version du 
domaine public de la version 83-Standard? Qu'en était-il 
de la version Laxen ef Perry? Une solution élégante et 
vraiment complète (qui soit sûre), mis assez avancée (en- 
têtes ‘'hash-code' et mots mta mixés au code source de 
Forth) et très anti-conformiste extérieurement (Forth en 
tant que fichier avec son DOS, exploitant les fichiers 
d'un DOS différent) facilement assimilable. La solution? 
Utiliser F83 comme modèle, mais en simplifiant la 
structure interne et en utilisant la puissance des 
primitives avec la puissance du "self-boot et règlant 
l'univers" pour approcher le matériel, : 


Le concept: créer deux vocabulaires successifs, META et 
TARGET, puis ne jamais faire de recherche de mot dans 
FORTH lors de la compilation dans TARGET. Partager les 
tampons disque et la zone des variables utilisateur entre 
système mta et cible. Définir une version de LITERAL qui 
soit translatable en mémoire. Compiler le système cible 
dans une seule zone mémoire séparée. Et, "à la vraie mode 
Forth", écrire le système source de la cible dans l'ordre 
bas-haut. Ceci sous-entend que la résolution des 
références avant ne peut être réalisée, mais permet le 
test d'exécution des mots avant la compilation de tout le 
système cible! Chaque mot devant être utilisé avant 
définition dans la cible doit être vectorisé (DEFER). 


Le code source du métacompilateur élémentaire: 


Très peu de définitions sont 
l'implémentation du mta-compilateur. Le code source qui 
suit assure que le système de base est standard par 
rapport à la norme 83-Standard et que l'espace mémoire est 
suffisant pour contenir le système cible. Pour cette 
raison, le système hôte et le système cible doivent 
résider ensemble en mémoire, car aucune table de symboles 
n'est générée en dehors du dictionnaire de la cible. Les 
définitions écrites en code mchine montrées ici sont 
valables pour le microprocesseur 6502. 


requises pour 


La première tâche consiste à étendre le vocabulaire 
assembleur de manière à contenir tous les mots utilisés 
dans le code source de la cible pour les mots définis en 
code machine. Les extensions requises sont produites pour 
le système cible et les mots définis en assembleur. 


ALSO ASSEMBLER DEFINITIONS 


: IX HRK ; : DECIMAL DECIMAL ; : DUP DUP ; 
++; 1H +; t 2+ 24 ; 

- — ; 1-1 ; ? 2= 2- ; 
: HERE HERE ; 


Et on s'arrète 1à, car la majeure partie de la sécurité du 
métacompilateur est due au fait que l'ordre de recherche 
ne Se poursuit pas dans le vocabulaire FORTH. Le résultat 
est que quand un mot défini exclusivement dans le 
vocabulaire FORTH hôte est rencontré dans le code de la 
cible, il se produit un message d'erreur et une définition 


incorrecte sera compilée. En dehors de ces quelques 
définitions dans le vocabulaire ASSEMELER, il faut prendre 
des précautions pour s'assurer que l'ordre de recherche 
est respecté durant la métacompilation des définitions en 
code machine dans la cible. 

L'étape suivante consiste à définir deux 
vocabulaires: 


nouveaux 


ALSO <ONLY> DEFINITIONS 
VOCABULARY META 
VOCABULARY TARGET META DEFINITIONS 


Deux variables sont nécessaires pour la définition de la 
zone ménoire utilisée par le système cible: 


VARTABLE ORIGIN VARIABLE FINISH 


: IN-TARGET? ( adr — b vrai si adr dans la cible) 
DUF FINISH a UX SWAP ORIGIN a UK NOT AND ; 


La partie compilation de LITERAL doit être redéfinie de 
manière à compiler la partie exécution d'un litéral 
définie dans la cible lorsqu'une valeur litérale est 
rencontrée dans le code source de la cible. 


VARIABLE ‘LIT ( prend le cfa de la procédure exécution 
d'une valeur litérale) 


* (LIT) 'LIT ! ( utilise maintenant le système hôte) 
<LITERAL> ( -— redéfinition de la partie 
compilation) 
STATE @ IF 
DP @  IN-TARGET? IF 
LT @ , EISE 
COMPILE (LIT) THEN , THEN ; IMMADIATE 


" <LITERAÏD IS LITERAL ( vérifier que LITERAL est un mot 
vectorisé) 


Si le LITERAL du système hôte n'est pas vectorisé, il sera 
nécessaire de connecter le nouvean <LITERALD dans 
l'ancienne définition. Il ne suffira pas de redéfinir 
simplement LITERAL, 


La compilation dans deux zones mémoire différentes est 


réalisée en basculant la valeur du pointeur de 
dictionnaire DP. 

VARTABLE T-DP 2 ALIOT ORIGIN @ T-Dp ! 

:? TARGET-DP ( —— bascule en zone cible) 


T-DP@ DP @ T-DP2+! DP'! ; 


: FORTH-DP 
DP @ 7-DP ! 


( — bascule en zone hote) 
T-DP 2+@ DP ! ; 


Plusieurs définitions sont à rajouter au vocabulaire META. 
Elles sont analogues aux extensions ASSIMELER citées 
précédemment, mais sont utilisées comme directives de 
compilation de haut niveau. 


INTERPRET-ONLY STATE @ IF RIK 


TYPE TRUE AFORT" is interpret only!" THIN : 


EOUNT 


: HOST ONLY FORTE ; 

: ESCAPE HOST QUIT ; ( pour mise au point) 
: DEFINITIONS DEFINITIONS ; 

: [COMPILE] ( : IMMEDTATE 


: [COMPILE] [COMPILE] [COMPILE] ; IMMEDIATE 
: ASSEMBLER ASSEMBLER ; 

: IMMDIATE IMMEDIATE ; 

: COMPILE-ONIY COMPILE-ONIY ; 

: ASCII [COMPILE] ASCII : IMMEDIATE 


Les mots suivants sont définis tels que certains mots 
vectorisés dans le système cible agissent temporairement 
avec l'action des mots du système hôte pour permettre la 
mise au point d'une cible en cours de métacompilation. 
Ensuite, chaque mot sera restauré dans ses fonctions 
initialement envisagées dans le système cible. 


: <HLOCD) (BLOCK) :; 

: <TOAD> IOAD :; 

: <CRASD PR 2- @ NAME .ID 

TRUE ABORT" must have a VECTOR! <Metap" ; Je 
Ceci n'autorise les références avant qu'au travers des 
mots vectorisés. 
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: (LABEL) CREATE IMMÉDIATE TARGET-DP HERE FORTH-DP , 
DÔOES> @ STATE @ IF 

[COMPILE] LITERAL THIN ; 

LABEL ( -— rend une adresse cible dans un label 
( sauvegarde de CURRENT) 

ALSO META DÉFINITIONS -ALSO ( CURRENT = META) 

FORTH-DP (LABEL) TARGET-DP ( compile le label) 
CURRENT ! ; ( restaure CURRENT) 


Ensuite on commence à définir certains paramètres du 
système cible. 


: HU ( n ——- crée une constante dans META) 
CONSTANT ; IMMEHDIATE 

LIMIT EQU EMEM 

FIRST EQU BU 

#BUFFERS EQU NEUF 

RPO 6 EQU INIT-RPO 

SPO @  EFQU  INIT-SPO 

0800 ORIGIN !  4AFFF PFINISH ! ( exemple pour cible 
basse 

( 5000 ORIGIN ! ABB FINISH ! ( exemple pour cible 
haute) 

DECIMAL 


Maintenant nous commençons à compiler le système cible. 
Les défintions META seront développées ultérieurement, 
mais les labels définis maintenant seront nécessaires plus 
loin. Il1 s'agit des points d'entrée et les valeurs par 
défaut des variables utilisateurs. 


ORIGIN a T-DP ! TARGET--DP 

ALSO ASSEMBLER 

( cold start: ) NOP, HERE JWP, 

( warm start: }) NOP, HERE JMP, -ALSO 

LABEL INIT-FORTH 0 , ( user area + O8) 

LABEL INIT-UP 412@ , ( 10) 
INIT-SPO , ( 12) 
INIT-RPO , ( 44) 
INIT-SPO 1+ , ( TIB area 16) 
10 : ( BASE 18) 
1 ( VARNING 20) 

LABEL INIT-FENCE O : ( FENCE 22) 

LABEL INIT-DP 0 ; ( DP 24) 

LABEL INIT-VOC-LINK  O, ( VOC-LINK 26) 

LABEL UP 12@ , ( UP 28) 


<LID est la première définition du système cible réalisée 
en code machine. Une fois définie, le contenu de la 
variable ‘LIT est initialisée avec la valeur de son cfa. 


ALSO ASSEMBLER 


LABEL <LITD HERE +, ( ceci sert de cfa) 
IP )Y LDA, PHA, IP IN, O= IF, IP + INC, THEN, 


IP )Y LDA, IP INC, Os LF, IP 1+ IN, THIN, 
<LID ‘LIT ! ( initialise 'LIT ) 
Les labels suivants sont dépendants du système. Ces codes 


sont définis pour le mP 6502, mais le code peut être 
adapté à d'autres processeurs en changeant d'assembleur. 


LABEL TPUSH DEX, DEX, 


LABEL TPUT BOT 1+ STA, PIA, BOT STA, 

LABEL TNEXT + ÆLDY, IP )Y LDA, W 1+ STA, 
DAY, IP )Y LDA, W  STA, 
CIC, IP LDA, 2 4#ADC, IP STA, 
CS IF, IP + INC, THEN, 
W 1- JP, 

LABEL TPOPTWO INX, INX, 

LABEL TPOP INX, INX, TNEXT JWP, 

LABEL TSETUP .A ASL, N 1- STA, BEGIN, 
BOT LDA, N ,Y STA, INX, IN, 
N 1- CPY, O= EN, 


O #ÆLDY, RTS, 


Les fragments de code qui suivent et les définitions sans 
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en-tête sont toutes requises pour créer une machine 
virtuelle FORTH opérationnelle. Parce qu'elles sont 
définies dans La cible, le métacompilateur peut compiler 
le code source en adressage réel sans faire appel à une 
tablde symboles pour une résolution ultérieure d'adresse. 
Notez l'emploi du label (V) dans la dernière ligne de code 
de (DOES). (V) est une définition META qui empile une 
adresse sur La pile de données pour les instructions de 
saut. Pour le moment concernant (V), l'ordre de recherche 
est ASSEMBLER, META et le vocabulaire courant est META. Si 
chaque code avait un en-tête, ils serait lié 
incorrectement dans l'ancien vocabulaire du système META 
même en étant déjà défini dans l'espace mémoire destiné à 
la cible. 


LABEL (DEFER) CIC, W LDA, 2 # ADC, W STA, CS IF, 
W 1+ INC, THEN 
W )Y LDA, PHA, INY, W )Y LDA, 
W {+ STA, PIA, W STA, DEY, W t- JMP, 


LABEL (:) IP i+ LDA, PHA, IP LDA, PHA, CIC, 
W LDA, 2 4# ADC, IP STA, TYA, W 1+ ADC, 
IP + STA, TNEXT JMP, 

LABEL (C)  24#LDY, W )Y LDA, PHA, INY, W )Y LDA, 
TPUSH JMP, 

LABEL (V) CIC, W LDA, 2 Æ# ADC, PHA, W 1+ LDA, 
O #FADC, TPUSE JMP, 

LABEL (U) CIC, 2 ÆLDY, W )Y LDA, UP ADC, PHA, 


INY, W )Y LDA, UP 1+ ADC, TPUSH JMP, 


LABEL (EXIT) HÈRE 2+ , ( ceci est un cfa!) 


LABEL (;) PIA, IP STA, PLA, IP 1+ STA, TNEXT JMP, 
LABEL (DOS) IP 1+ LDA, PHA, IP LDA, PHA, 

W )Y LDA, CIC, 34 ADC, IP STA, 

INY, W )Y LDA, O # ADC, IP 1+ STA, 

(V) JP, -ATSO 


Maintenant que toutes les procédures ainsi définies ont 
une adresse réelle, tous les mots de définition peuvent 
être créés dans le vocabulaire META Notez que la 
définition de HEADER ne génère pas de structure 
particulière. Si la structure des en-têtes du système 
cibles diffèrent de celles du système hôte, il faudra 


envisager quelques modifications en fonction de la 
structure untilisé par votre cible. 
FORTH-DP HEX 
: M: rs : ÿ IMMDIATE 
: M; (COMPILE) ; ; IMMEDIATE 
M: HEADER ( —— crée juste un nom et un en-tête lié) 
INTERPRET--ONLY 
HERE 80 C, DEFINED IF 
HERE  WARN THEN 
DUP 1+ Ca 1+ ALIOT 
. LATEST , CURRENT @ ! 
DP G@ OFF = IF 


1 ALLOT LATEST DUP 1+ 
OVER HERE SWAP - CMOVE> 
1 CURRENT @ +! THEN M; 


M: <HFADER> [COMPILE] HEADER M; 


M: : CURRENT @ CONTEXT ! 
[COMPILE]) HAADER (:) , HIDE TM; 


M: ; (EXIT) , RIVEAL [COMPILE] [ M; 

M: CREATE [COMPILE] HEÆADER (V) , M; 

M: CONSTANT (COMPILE) HFADER (C) , , M; 

M: VARIABLE [COMPILE] HEADER (V) , O , M; 

M: USER [COMPILE] HEADER (U) , , M; 

M: CODE [COMPILE] HEADER HERE 2+ , 
HIDE ALSO ASSEMBLER M; 

M: DEFER [COMPILE] HEADER (DEFER) , 


CRASH , M; 


M: IS 


INTERPRET-ONLY ! >BODY ! M; 
M: ZERO-LINK INTERPRET-ONLY O , >LINK ! M; 


M: 83%STD ( seulement pour votre structure d'en 
têtes) 
LATEST G® 40 OR LATEST C! M; 
Ms! INTERPRET-ONLY ! M; 


Les mots ci-dessus sont les dernières définitions de META. 
À partr de là, tout le code source génère des définitions 
TARGET. Dans notre code source cible, nous commencerons 
par les variables utilisateur. 


DECIMAL ONLY META ALSO TARGET DÉFINITIONS 
TARGET-DP 


00 USER TOS ZERO-LINK TOS 
O2 USER ENTRY 

O4 USER LINK 

06 USER SPO 

O8 USER RPO 

10 USER TIBO 

12 USER BASE 83STD 


76 USER LAST 
Enfin dans le code sourcë de la cible, les mots vectorisés 
seront définis. Voici la liste complète des mots 
vectorisés de votre système. À noter que certains ne sont 
pas nécessaires pour les références en avant, mais sont 


définis pour permettre la redirection aisée d'exécution 
apr l'utilisateur. 


DEFER HEADER ! HEADER IS HEADER 
DEFER LOAD 83%STD  <IOAD> IS IOAD 
DEFER BIOCK 83STD  <BLOCR IS HIOCK 
DEFER LITERAL 83%STD ‘ <LITERAL> IS LITERAL 
DEFER PAUSE : NOOP ; ‘ NOOP IS PAUSE 
DEFER BOOT : 
DEFER STATUS 

DEFER SOURCE 

DEFER WARN 

DEFER WHERE 

DEFER BUFFER 83STD 

DEFER EMPTY-BUFFERS 8397) 

DEFER +OFFSET 

DEFER RD 

DEFER WR 

DEFER QUIT  83STD 

DEFER KEY 83STD 

DEFER KEY? 

DEFER EMIT 83%S1D 

DEFER CR 83STD 

DEFER PAGE 


Le reste du code source cible sont les constantes, 
variables, définitions en code mchine et définitions 
"deux-points". Lors de la compilation d'un mot vectorisé, 
le vecteur utilisé est celui défini par IS. 


: (NUMBER) ( adr -— D) 
NUMBER? O= MISSING ; 
" (NUMBER) IS NUMBER 


Le listing complet ne figure pas ici, mais a été essayé 
par l'auteur, et vous êtes assurés qu'il reproduit 
exactement le FORTH écrit en FORTH. 


Après la définition des mots COLD et WARM, les parties 
définies en code machine commençant leur exécution seront 
compilées, et les pointeurs correspondants connectés au 
début du système cible. 


Si vous rencontrez des difficultés lors de la 
métacompilation, il suffira de taper AISO FORTE et toutes 
les facilités normales du système hôte seront utilisables 
pour la mise au point. Vous pouvez DMPer le code compilé, 
vérifier les noms et les lister avec WORDS, puis essayer 
les mots de la cible pour vérifier leur bon 
fonctionnement. Pour revenir à la métacompilation, il faut 
taper —ALSO et poursuivre le chargement. Lorsque la cible 
sera terminée, activez sont interpréteur. A partir de ce 
moment, pour revenir au système hôte, il faut faire appel 
à une "clause d'echappement", nommée justement ESCAPE. 
Dans le code source cible, nous avons défini une table 


d'exécution des caractères et une routine chargée d'entrée 
dans EXPECT ou d'exécuter une séquence selon le caractère 
entré au clavier. Un de ces codes exécute la séquence 
ESCAPE. 


t ESC-IN ( © —- action à valider pour touche ESCAPE) 
ESCAPE ( définition META) 
ABORT" Reset " ; 


À la fin du code source de la cible, 


les paramètres de 
démarrage doivent être initialisés. 


LATEST  INIT-FORTH ! ( IATEST ) 
HERE  INIT-UP 12+ ! ( FENCE ) 
HERE  INIT-DP 144 ! (DP ) 
VOC-LINK @ INIT-DP 16 + ! ( VOC-LIWK) 


: START ( saute sur le point d'entrée À froid) 
O +ORIGIN GO ; 


Pour activer le système cible, taper START. 


Extension et modification du métacompilateur: 


La version originale de ce métacompilateur a été écrite à 
partir d'un système FigFORTH tournant sur IBM PC. Le 
système Fig a été arrangé de manière à vectoriser les mots 
appropriés, le concept ONLY créé par RAGSDALE dans le 
vocabulaire ALSO (Fort 85 Standard, section c, proposition 
expérimentale “spécification de l'ordre de recherche et 
contrôle") a été rajouté. Ce métacompilateur est capable 
de générer un système FB3 avec des structures d'en-tête 
différentes de celle du système hôte ce qui requiert la 
redéfinition des versions Fig de CREATE et -FIND. La 
modification des structures d'en-tête pour en-têtes 
séparés ne requiert pas d'effort supplémentaire. 


L'utilisation du métacompilateur pour créer un système 
cible destiné à un autre type de microprocesseur requiert 
l'utilisation d'un assembleur et quelques mots pour 
relogr l'image système dans l'ordinateur cible. 
Cependant, les outils de mise au point ne peuvent être 
utilisés car ce système cible ne peut fonctionner sur le 
système hôte. 


Conclusion: 


La simplicité de ce métacompilateur réside dans ses 
facilités d'adaptation et d'extension sur votre propre 
système FORTH. 


Note de la rédaction: 


Les personnes ayant le forth 83-Standard de Laxen et Perry 
(version  CP/M où MSDOS) disposent déjà d'un 
métacompilateur très performant. Pour implanter une 
version personnalisée sur le système de leur choix, il 
faut modifier le contenu du fichier METABO.HLK pour la 
version F63 CP/M, des fichiers KERNELS6.BLK et METAS6. BLK 
pour la version MDOS. L'assembleur se situe dans les 
fichiers CPUSOS0.ELK sous CP/M et CPUB086.HLK sous MSDOS. 


Nous espérons vous donner prochainement des précisions 
plus détaillées sur l'emploi du métacompilateur F33 de 
Laxen et Perry. a 
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FORTH sSute JEDI 34: 


: cle  ( bit de carry:=0) 
ASSEMBLER FE # andcc FORTH ; 


: sec ( bit de carry:=1) 
ASSIMRLER 1% orcc FORTH ; DEÆCIMAL 

L'assemblage conditionnel n'est possible qu'au sein d'une 
macro=instruction, mais peut par contre faire appel à 
toutes les structures de contrôle existant en FORTE, 
telles BEGIN..UNTIL,  CASE..OP..ENDOF..ENDCASE, etc... 
(attention, ne pas confondre if et IF; voir LABELS ET 
STRUCTURES DE CONTROLE) . 


DEFINITION DE SOUS-PROGRAMMES 


Cette méthode reprend le principe expliqué dans le manuel 
de référence du FORTH THOMSON, à la différence que 
le vocabulaire ASSEMBLER doit être cité explicitement 
avant l'utilisation des mnémoniques d'assemblage. Une 
séquence d'assemblage sera terminée par rs. Schéma de 
définition: Re 


CREATE <mot> ASSEMBLER 

..définition en assembleur.. rts FORTH 

L'exécution du sous-programme, en FORTH, est réalisée par 

la séquence <mot> CALL. L'appel de la même définition, en 

tant que sous-programme à partir d'une autre définition en 

te D est réalisée par la séquence <mot> jsr 
où bar). 


Si le sous-programme est destiné à n'être utilisé qu'au 
sein d'une autre définition écrite en assembleur, on peut 
créer un sous-programme n'ayant pas d'en-tête dans le 
dictionnaire FORTH. Schéma de définition: 


ASSEMBLER LABEL <label11> 
..définition en assembleur.. rts FORTH 

Et plus loin, dans la définition utilisant le sous- 

programme commençant à l'adresse pointée par <label1>, on 

retrouvera la séquence d'assemblage suivante: 


.. <labelt> jer ( ou bsr) 
nn de <labe11> ( si labeli plus utilisé par la 
suite) .. 


LES PROGRAMMES 


On entend par 'programæ', bout mot dont l'exécution est 
gimilaire aux primitives du dictionnaire déjà définies en 
assembleur. De tels mots sont définis par l'assembleur 
FORTH à l'aide des mots de définition CODE et END-CODE. 
Ces mots sont à une définition écrite en assembleur, ce 
que sont les mots ‘:' (deux-points) et ';' (points- 
virgale) pour une définition écrite en langage FORTH. 
Schéma de définition: 


CODE <mot> 
.. définition en assembleur 
END-CODE 


Toute commande FORTH située entre CODE et END-CODE sera 
immédiatement exécutée, que ces mots FORTH soient 
d'exécution immédiate ou non. 


Un mot défini par CODE..END-CODE n'est exécutable qu'à 
partir de FORTH. Il ne peut servir simultanément de sous- 
programme dans une autre définition écrite en assembleur. 
Si vous désirez qu'une définition puisse être exécutable 
simultanément depuis FORTH ou en tant que sous-programe 
dans une autre définition assembleur, il faut définir deux 
mots séparés, le premier étant un sous-programme utilisé 
par le second. Schéma de définition: 


CREATE <moti> ASSEMHLEUR 
. définition en assembleur... rts FORTH 
CODE <mot2> 
<mott> jsr .. NEXT END-CODE 
Par convention les mots <moti> et <mot2> auront le même 
libellé, mais il est conseillé d'écrire le libellé de 
<moti> entre parenthèses afin d'indiquer qu'il s'agit 
d'une primitive à ne pas utiliser directement (un peu 
comme DO et (DO) dans le dictionnaire FORTH). 
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Mais la possibilité d'utiliser un mot aussi bien depuis 
FORTH que comme sous-programme assembleur a été envisagée. 
La méthode utilisée n'est pas standard, car assez 
personnelle. Elle consiste à dériver l'adresse contenue 
dans le cfa du mot défini par CODE..END-CODE vers une 
adresse autre que le début de la zone paramétrique du mot 
défini. Schéma de définition: 


CODE <mot> 
.. déf. en ass... rts 
HERECFA NEXT END-CODE 


Le mot <mot> peut dorénavant être utilisé en tant que 
sous-prograrme dans une autre définition assembleur: 


... FIND <mot> 2+ jsr ... 


Le mot HERDCFA utilisé dans la définition de <mot> est 
une macro-instruction assemblant un branchement relatif 
vers l'adresse du début de la zone paramétrique du mot en 
cours d'assemblage et génère une indirection dans le cfa 
de ce même mot. Le mot <mot> peut être exécuté en FORTH en 
tapant simplement <mot> et précédé des éventuels 
paramètres utilisés par <mot>. 


LES DEFINITIONS MIXTES 


A partir de cet instant, accrochez-vous aux branches, 
asseyez-vous et n'oubliez pas de respirer, car ce que 
vous allez lire est tout à fait révolutionnaire. I effet, 
il s'agit de définir des mots FORTH dont certaines parties 
gont écrites et exécutables en FORTH et d'autres parties 
définies en assembleur et exécutables en code machine. Une 
telle possibilité n'existe, à ma connaissance, sur aucun 
autre langage informatique. 


Pour ce faire, nous disposons de deux mots, ASM et 
JFORTH. Ces deux mots sont utilisés dans une définition 
“deux-points" et encadrent une séquence écrite en 
assembleur. Schéma de définition: 


: <mot> 

..déf.en FORTH.. 

ASM ...définition en assembleur... NEXT 
JFORTH ...définition en FORTH ... etc... ; 


On peut passer autant de fois qu'on le souhaite de FORTH à 
l'assembleur et inversement. Toute séquence écrite en 
assembleur doit être encadrée par ASM! et JFORTH et se 
termine par la macro-instruction NEXT. 


LISTING 
SCR: 7 


EE 


€ ASSEMBLER PAGE 91/.. MP21 jan86) 
 PINIT € ——-) 
CR .” Vecteur non initialise ” 3 ERRER : 


: DEFER 
CREATE € FIND ?INIT 1 LITERAL , 


DOES> © EXECUTE ; 

SOL ===) 

FIND ELCOMPILEI LITERAL ; IMMEDIATE 
: 15 € cfa —--) 


FIND 2+ STATE @ 
IF CCOMPILEI LITERAL COMPILE ! 
THEN ; 


ELSE ! IMMEDIATE 


:5 Creation de mots vectorises au for- 
mat E3-STANDARD. Exemple: 


DEFER TEST 
C'1 CLS IS TEST 


cree un en-tete TEST 

affecte le CFA de CES 
au FFA de TEST. Dorena- 
vant, TEST execute CLS 


SCR: 8 
€ ASSEMBLER PAGE 62/.. MP21jan86) 
VOCABULARY ASSEMBLER IMMÉDIATE 
ASSEMBLER DEFINITIONS 
DEFER LITERAL IMMEDIATE 
FORTH FIND LITERAL 


ASSEMBLER IS LITERA 

DEFER C, 

FORTH FIND C, ASSEMBLER IS C, 
CEFER , 

FORTH FIND , ASSEMBLER IS , 
DEFER HERE 

FORTH FIND HERE ASSEMBLER IS HERE 
DEFER ALLOT 

FORTH FIND ALLOT ASSEMBLER 1S ALLOT 
DEFER :! 

FORTH FIND ! ASSEMELER IS 1! 
DEFER C! 

FORTH FIND C! ASSEMBLER 1S Ci 
DEFER @ 

FORTH FIND & ASSEMBLER IS à 
DEFER Cd 

FORTH FIND Ce ASSEMBLER IS ce 
SCR: 11 
€ ASSEMBLER PAGE 65/.. MPiidecS5) 
HEX 
: INH { Creation des mots inherents) 
CREATE , OC € --— <mot en compilation) 
DOES: ( --- en execution) 
MODE &@ IF ERROR-MODE THEN 

@ C, OMODE! ; 
SA INH abx 48 INH asla 56 INH aslb 
47 INH asra 58 INH asrb 4F INH clra 
SF INH clrb 43 INH coma 53 INH comb 
19 INH daa 4A INH deca SA INH decb 
4C INH inca 5C INH inch 48 INH Isla 
S8 INH 1s1b 44 INH 1sra GA INH 1svrb 
30 INH mul 49 INH nega 59 INH negb 
12 INH nop 49 INH rola 59 INH rolb 
46 INH rora 66 INH rorb  2B INH rti 
59 INH rts ID INH sex 3F INH swi 
13 INH sync 4D INH tsta 50 INH tstb 

{19,21 18 C, 11,3 110€, 
! suiz (10,) swi 
: SwiS C11,) swi 
DECIMAL 
SCR: 14 
{ ASSEMBLER PAGE 08/., MPlldec85) 
HEX VARIABLE FOSTCODE 

VARIABLE POSTOCTET 

SELECTION 
CREATE ,C, © © —-- <mot> en compil.) 
DOES > Ce MODE ! 
à SELECTION > 1 SELECTION # 


Z SELECTION < 3 SELECTION .R 


(6E , ? € 


=) 


{8B,) { 
FOSTOCTET & 


(IEB,) © 
FOSTOCTET @ , 


DEFER DEPLACEMENT 


TRT-OBITS 
E4 POSTCODE +! 
L'1 (66,2 IS DEFLACEMENT 


€ -—-) 


SCR: 9 
( ASSEMBLER FAGE 03/.. MPildec8s) 


FORTH DEF INITIONS 

: CODE 

CREATE © --- <mot> en compilation) 
HERE DUP 2- 1! 

[COMPILE] ASSEMBLER : IMMEDIATE 
: END-CODE € ---) 

CURRENT @ CONTEXT ! : 


: : CODE 

?CSF COMPILE € ;CODE) 
CCOMPILEI € 
CCOMPILE] ASSEMBLER 
CCOMPILE] SMUDGE : IMMEDIATE :S 
Creation d'un mot de def en asseubleur : 


CODE <mot> . END-CODE 

Creation d'un mot de definition, avec la 

partie execution def. en assembleur: 
mot: ; CODE 

ECR: 12 

( ASSEMBLER FAGE 96/.. 


ND=- COQ 


MPlldec86) 


HEX VARIABLE MANIPULATIDN? 


: REGISTRE 
CREÂTE { nl n2 --- <mot> en compilation) 


ECR: 10 : 
{ ASSEMELER PAGE 594/.. MP lidec85) 
ASSEMBLER DEFINITIONS 


VARIABLE MODE © precise mode adressage) 


{ O=mode etendu “espace” où signe à ) 
{ l=mode immediat signe # D 
€ 2=mode direct signe < ) 
{ 3=node indexe 

signe ,——R ,-R ,R ,R+ ,R++ ) 
! GMODE! € —--) 
6 MODE ! ; 


: ERROR-MODE © ———) 


CR ." Mode d'adressage ” 

MODE &@ CASE 

4 OF .” etendu” ENCOF 

1 OF .” inmediat” ENDOF 

2 OF .” direct” ENDOF 

3 OF ." indexe” ENDOF 

ENDCASE .” interdit” 

OMODE! 3 ERROR ; 

SCR: 13 

€ ASSEMBLER PAGE 07/.. MPlidec85) 
HEX 

08 02 REGISTRE a 09 94 REGISTRE b 
00 66 REGISTRE d O1 19 REGISTRE x 
02 2o REGISTRE y 03 49 REGISTRE u 
4 46 REGISTRE 5 05 66 REGISTRE pcr 


CC 96 06 REGISTRE dpr GA 61 REGISTRE cer 
DOES (© -—- adr en execution) 
SR : PE-PL  CREATE C, € © -—— «mot 
MANIPULATION? @ 6= ( a-t-on appele un) |DODES: MODE @ IF ERROR-MODE THEN 
IF ( registre ? ) Ce C, C, DROF 
1 MANIPULATION? ! (© non=> on met 6 0) & MANIPULATION? ! OMODE! ; 
{ sur la pile ) 
54 FS-PL pshs 36 PS-FL pshu 
R 35 F5-PL puls 37 FS-PL pulu 
16 « 
TF-EX CREATE €, à € --—— mot» ) 
( 16 # en decimal) COES: MODE € IF ERROR-MODE THEN 
C& C, DROF €, 
& MANIPULATION? ! @6MODE! ; 
Ce + SWAP ; 
1F TF-EX tfr IE TF-EX 67 
DECIMAL DECIMAL 
SCR: 15 SCR: 16 
€ ASSEMBLER FAGE 09/ Wlidecas) PESÉMNELER PAGE 107 FRE 
HEX 
HE X 
: END Se 
CREATE c. Ë6 IND a,x 85 IND b,x 88 INO d,x 
DGES> C@  POSTCOOE : A6 IND a,y AS IND b,y AB INC d,v 
: | CE IND a.u CS IND bu CB IND du 
C3 (OB,) IS DEPLACEMENT , ; . 
F £$6 IND àa,s ES IND b,5s EB IND d,5 
56 IND ,x+ BT INC ,x++ . 
52 IND ,-x 83 IND ,—x BERAIRE 
AS IND ,v+ AT IND .y++ 
A2 IND .-y A3 IND ,—-y 
C9 IND .u+ CT IND ,u++ 
CZ IND ,-u C3 IND ,--u 
ES IND ,5+ ET IND ,s++ 
EX IND ,-s E3 IND .--s 
DECIMAL 
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SCR: 17 
C ASSEMBLER PAGE 11/.. 


HEX 

: TRT-4BITS C n ---) 
DuP &< 

IF 19 POSTCODE +! THEN 


OF AND POSTCODE +! 
L'1 (OB,) IS DEPLACEMENT ; 


: TRT-8BITS { 
88 POSTCOODE +! 
FF AND POSTOCTET ! 

C'1 (8B,) 1S DEPLACEMENT ; 


n -—-) 


: TRT-16BITS 
89 POSTCODE +! 
POSTOCTET ! 
C'1 (16B,) IS DEPLACEMENT ; 


Çn---) 


DECIMAL 


ScR: 206 
€ ASSEMBLER PAGE 14/.. 
HEX 


! RELATIF € adri adr2 —-— rel 
_ { relzadri-adr2 
OUP -80 FORTH < ASSEMBLER 
OVER 7F  FORTH > ASSEMBLER OR 
1F 1 

ELSE © THEN ; 


€ fisl si -80<rel>7F) 
{ f150 cas contraire) 


SCR: 18 

PRATOREEST € ASSEMBLER PAGE 12/.. WP27dec85) 
HEX 
: 3 € —-) 


MODE @ DOUP 1 = OVER 2 = OR -- 
IF  ERROR-NODE THEN 
3 = 


IF { si «ode indexe) 
POSTCODE € 
86 AND = { si b7=0) 
IF 


POSTCODE @ DUP 6F AND SWAP 196 AND 
IF 86 + THEN 
POSTOCTET ! 
POSTCODE @ 69 AND 98 + POSTCODE ! 
L'1 (8B,) IS DEPLACEMENT 
ELSE 
19 FOSTCODE +! 
THEN 
ELSE 
SF POSTCODE ! 3 MODE ! 
['1 (16B,) IS DEPLACEMENT 
THEN ; 
DECIMAL 


SCR: 21 
MP27dec95)| { ASSEMBLER PAGE 15/.. MP27dec85) 
f1) : REG 
} CREATE 106 % + , © ci c2 ——— <mot>) 


DOES> 
MODE & 
CASE 


{ cisl, operateur 8 bits ) 
{ c1=2, operateur 16 bits) 
{ c2=code operateur } 

{ Test du mode adress. 
1 OF DOUP + Ce 1- 


imeediat 


5 per € n ---) IF Ce C, , 
HERE 2+ RELATIF ELSE Ce C, C, THEN ENDOF 
IF 2- POSTOCTET ! ( Test du mode adress. etendu 
9c POSTCODE ! 9 OF Ce MB + C, , ENDOF 
L'1 (16B,) 1S DEPLACEMENT ( Test du node adress. direct 
ELSE 1- FF AND POSTOCTET ! 2 OF Ce 16 + C, 106 MOD C, ENOOF 
8c POSTCODE ! ( Test du mode adress. indexe 
L'1 (6B,}) IS DEPLACEMENT 3 OF Ce 28 + C, 
THEN OR ; POSTCODE @ C, DEPLACEMENT ENDOF 
DECIMAL 
ÿ POSTOCTET 1! 
© POSTCODE 1 ; DECIMAL 
SCR: 23 SCR: 24 
{ ASSEMSLER PAGE 17/ MP27dec85) |{ ASSEMBLER PAGE 18/.. MPZBdec8s ) 
HEX HEX 
2 C3 REG addcd : MEM 
2 89 REG (cmpd) ! cmpd (16, Ccmpd) ; |CREATE C, € © —-- <mot> avec ceval en ) 
2 8C REG (cmps) cmps (19,) (cmps) : |ODES> C& MODE & ( adressage direct) 
2 93 REG (cmpu) cnpu €11,) Cempu) ; JOUP 1 = IF ERROR-MODE THEN 
2 8C REG cmpx CASE 
2 8C REG (cmpy} cmpy (10,) Ccmpy} ; ( Test du node adress. etendu > 
2 CC REG ldd 6 OF 79 + C, , ENDOF 
2 CE REG Iidu { Test du node adress. direct > 
2 CE REG (lds) ids (10,) Clds) ; 2 OF C, 160 MOD C, ENDOF 
2 8E REG ldx { Test du mode adress. indexe ) 
2 8E REG (ldy) ldy (19,) Cldy) ; 3 OF 66 + €, 
2 CD NIREG std POSTCODE @ C, DEFLACEMENT  ENDOF 
2 CF NIREG ists) : sta (10, (sta) ; JENDCASE 
2 CF NIREG stu 6MODE ! 
2 8F NIREG stx 6 POSTOCTET ! 
2 8F NIREG (sty) : sty (16,3 Csty2 ; [9 POSTCODE ! ; 
2 83 REG subd 
DECIMAL 
2 8D NIREG jsr 
DECIMAL 
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SCR: 19 
( ASSEMBLER PAGE 13/.. 
HEX 


MP27dec85) 


!: SET-DEPLACEMENT € 
FOUP 
IF 
DUP -80 FORTH © ASSEMBLER 
OVER 7F FORTH > ASSEMBLER OR: 
IF TRT-I6BITS 
ELSE 
DUP -16 FORTH < ASSEMBLER 
OVER 6F FORTH > ASSEMBLER OR 


n -—-) 


IF TRT-8BITS 
ELSE  TRT-4BITS THEN 
THEN 
ELSE  TRT-0BITS THEN ; 
: INDN ( n --- <not> en compil.) 
CREATE C, DOES> ce 
POSTCODE ! SET-DEPLACEMENT ,R ; 
66 INDN ,x 26 INON ,y 
40 INDN ,u 68 INON ,5 
DECIMAL 


SCR: 22 

C ASSEMBLER PAGE 16/. MP27dec 95) 
HEX 

1 89 REG adca 1 C9 REG adcb 
1 86 REG adda 1 CB REG addb 
1 84 REG anda 1 C4 REG ardb 
1 85 REG bita 1 CS REG bitb 
1 81 REG cmpa ! C1 REG cmpb 
| 88 REG eora | C8 REG eorb 
1 86 REG 1da 1 C6 REG lb 

1 SA REG ora 1 CA REG orb 

1 82 REG sbca 1! C2 REG sbcb 
: NIREG 

MODE @ 1 = IF ERROR-MODE THEN 
REG ; 


1 97 NIREG sta | C7 NIREG stb 
{ Ne doivent pas etre utilises en ) 


( adressage immediat } 
1 60 REG suba | C9 REG subb 
OECIMAL 
SCR: 25 
C ASSEMBLER PAGE 19/.. WP28dec35) 
HEX 
0 MEM asl 67 MEM asr 
OF MEM cir 03 MEM com 
DA MEM dec OC MEM inc 
O6 MEM Is 04 MEM sr 
60 MEM neg 63 MEM roi 
96 MEM ror OD MEM tst 
DE MEM jup 

IMM  ( © --- ‘mot en compilation) 
CREATE C, 

DOES> C@ MODE @ 1 = 
IF C, C, MODE! 
ELSE  ERROR-MODE 
THEN ; 
IC IMM andcc 1A IMM orcc 3C IMM cwai 
DECIMAL 
Ce 


SCR: 2% 
€ ASSEMBLER PAGE 20/.. MPO4 j an66 } 
. REX 

: INDEX 

CREATE 


C, MODE! 
POSTCODE @ C, DEPLACEMENT 
ELSE ERROR-MODE THEN  ; 


322 INDEX leas 
33 INDEX leau 
30 INDEX leax 
31 INDEX leay 


DECIMAL 

SCR: 29 

( ASSEMBLER PAGE 23/26 MPO4 j an96 ) 
HEX 

: CONDITION 

CREATE C, 

D0OES> Ce ; 

24 CONDITION ce 25 CONDITION ca 

27 CONDITION eq 2C CONDITION ge 

2E CONDITION gt Z CONDITION hi 

24 CONDITION hs 2F CONDITION le 

25 CONDITION lo 23 CONDITION 1s 

2D CONDITION it 2B CONDITION mi 

26 CONDITION ne 2A CONDITION pl 

28 CONDITION ve 29 CONDITION vs 

Z4 CONDITION co 25 CONDITION cæi 

27 CONDITION z=1 2C CONDITION 0>= 

ZE CONDITION > 22 CONDITION > 

24 CONDITION >= 2F CONDITION 0<= 

25 CONDITION < 23 CONDITION <= 

2D CONDITION 0< 2B CONDITION mi 

26 CONDITION z=0 ZA CONDITION pl 

28 CONDITION v= 29 CONDITION v=1 
DECIMAL 

SCK: 32 

C ASSEMBLER PAGE 26/26 ) 
( EXTENSIONS FORTH/ASSEMEL . MPOEnai 96 ) 


: HERE>CFA € ——-) 
HERE LATEST PFA CFA ! 
LATEST PFA ASSEMBLER jsr FORTH ; 


-: ASME | 
BASE @ CONTEXT @ 

HERE 6 +, 

COMPILE BRANCH HERE © , 
HERE 2+ , 

COMPILE ASSEMBLER 
[COMPILE C ; IMMEDIATE 


: JFORTH 

HERE OVER - SAP ! 
CONTEXT 1 BASE ! 
ECOMPILET 1 ; 


SCR' 27 
€ ASSEMBLER PAGE 21/26 HP04 jan86 ) 
HEX 


: bra € adr —--) 
HERE 1+ RELATIF 
IF 2- 16 C, , 
ELSE 1- 20 C, C, THEN : 
: bar € adr ---) 
HERE + RELATIF 
IF 2- 17 C,,, 
l- 8D C, C, THEN ; 


DECIMAL 


SCR: 30 

( ASSEMBLER PAGE 24/26 
HEX 

ï if € cond —— adr) 
1 XOR C, HERE 0 C, ; 


HP04 jan86) 


‘ then € adr ---) 
HERE OVER RELATIF 


IF .” Branchement trop long” 3 ERRDR 

THEN 1- SWAP C! ; 

: else € adrl --- adr2} 

20 if SUAP then ; 

: begin € adr -—}) HERE ; 

ï mile ( cond -—-- adr) if ; 
repeat € adri adr2 ---}) 

>R bra R> then ; 

: until ( adr cond ——-) 

DR HERE + RELATIF 

1F 2- (16,) R> C, , 

ELSE 1- R C, C, THEN ; 

DEC IMAL 


scr: 


28 
‘© ASSEMBLER PAGE 22/26 MP04 jan96 } 
HEX 
: RELBR 
CREATE C, 
D0ES> 
Ce SwAP 
HERE 1+ RELATIF 
IF 2- (16,3) SWAP C, , 
ELSE 1- SWAF C, C, THEN ; 
24 RELBR bcc 25 RELER bcs 
27 RELBR beq 2C RELBR bge 
2E RELER bgt 22 RELBR bhi 
Z4 RELBR bhs 2F RELBR ble 
25 RELBR blo 23 RELBR bis 
2D RELBR blt 2B RELBR bai 
26 RELBR bne ZA RELBR bpl 
21 RELER brn { sans effet => 2x NOP) 
26 RELER bvc 29 RELBR bvs 
DECIMAL 
SCR: 31 
€ ASSEMBLER PAGE 25/26 HP04 jan86) 
HEX 


‘ NEXT € macro pour TO7, T07-706, T093) l 
ASSEMBLER 0099 jap FORTH ; 

C ou pour H05, GDUPIL 3, VEGAS, TAVERN. ) 

C ASSEMBLER ,y++ Idx 9 ,x ] jump FORTH ) 

DECIMAL 


: FORGET-LABEL 
CCOMPILE] ‘ NFA 
L'HERE 40 + FORTH 1 LITERAL ASSEMBLER 
OVER OVER 1+ U< 


OC —— <nom> ) 


IF CR .” Erreur de label” 3 ERROR 

ELSE OVER SWAP 2 - | PFA LFA & 
CONTEXT @ ! THEN ; 

2 ALLOT 

: LABEL ( ——— <nom)) 


CURRENT @ HERE OEFINITIONS 

L LATEST 2 - FORTH 1 LITERAL ASSEMBLER 
DUP @ DP ! OVER CONSTANT HERE SUAP ! 
DP ! CURRENT ! ; 


HERE LATEST 2 - ! 269 ALLOT 
FORTH DEF INITIONS 


13 
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REPONSE 8 (A. Jaccomard, 29190 PLEYBEN). 


Cospilation de fichiers texte. 


Encore FORTH DIMENSIONS, voluse VI11/5, Jan/Fev87, par C. À. MENRICH, article ?SCREENLESS FORTH’, tout 
un prograase, Voici le code : 


ONLY FORTH ALSO DEFINITIONS WARNING OFF 
 NLOAD .S (LOAD) 3 * NLOAD IS LOAD 


VOCABULARY UNSCREEN ONLY FORTH ALSO DOS ALSO UNSCREEN DEFINITIONS 
VARIABLE B/FILE SPQ & 4096 256 + - CONSTANT MODBUF \ taspon. 


{ NODBUF est placé ici à 48964256 octets sous la pile données. Dans l'article original, l'auteur le place en 
81448 ou FB8BH, c-à-d qu'il utilise les 4 buffers disque } 


REC-SIZE (5 adr -- adr° ) 14 + \ adr taille enregist. ds FCB 
FILE-SIZE (S adr -- adr’ } 16 + \ adr taille fichier ds FCB 
QPEN-FILE (S -- } IN-FILE & DUP 15 BDOS DOS-ERR? 
ABORT" Erreur d'ouverture" FILE-SIZE @ DUP 4896 } 
ABORT" Taille )> 4K*  B/FILE ! ; 
READ-CHAR IN-FILE @ 28 BDOS DOS-ERR? 
ABORT" Erreur de lecture" ; 
READ-SEQ (5 -- ) IN-FILE @ DUP REC-SIZE 1 SWAP ! 
FILE-SIZE 8 8 DO 
READ-CHAR PAD C8 BL MAX MOD-BUF DIN 8 + C! 1 DIN +! 
LOOP ; 
(LOAD) (S -- ) ?DEFINE (FILES OPEN-FILE IN OFF 
PAD SET-DMA READ-SER DIN OFF BLK ON RUN ; 
{SQURCE) {5 -- adr gr } BLK @ 
IF MOD-BUF B/FILE @ ELSE TIB #TIB @ THEN ; 


. 
4 
. 
3 


.. 


(2ERROR) (6 adr Igr f -- ) 
IF TYPE CR SP@ @ SP! PRINTING OFF BLK @ 
IF CR MOD-BUF DIN € BOUNDS DO ICE ENIT LOUP 
THEN QUIT 
ELSE 2DROP THEN ; 


* (LOAD) IS LOAD ‘? (2ERRORI 15 ?ERROR ‘ (SOURCE) IS SOURCE 


N'isporte quel éditeur peut être utilisé, y compris EDLIN, L'auteur a redéfini les 4 tagpons disque du 
haut de sésoire pour en faire un seul taapon de fichier source de 4K INdT: je préfère les laisser intacts, et 
utiliser un autre esplacesent aéaoire). Tout prograsae plus grand que cette liaite doit être fractionné en nodules 
de 4K, puis chainés. 


Un vocabulaire, UNSCREEN, est d’abord créé. 

B/FILE est une variable contenant le nosbre d’octets du fichier source. 

MOD-BUF est l'adresse du taapon, où ira le fichier. 

REC-SITE et FILE-SI2E sont les déplacesents dans le FCB donnant les adresses de la taille d’un 
enregistresent et du fichier. 

OPEN-FILE est sesblable à la coasande existante, sauf qu'ici elle vérifie que le source ne dépasse 
pas 4K, sinon ABORT et sessage d'erreur. 

READ-CHAR lit un caractère du fichier source. READ-SEG lit une séquence de celui-ci, et la place à 
MOD-BUF. L'adresse de transfert (la DTA) est placée en PAD, Tout caractère est conparé à BL, les 
’japrisables” sont placés dans NOD-BUF, les autres remplacés par un ‘blanc’. 

(LOAD) active l'interprète après lecture du fichier : il combine Les fonctions des connandes OPEN et 
(LOAD). Une fais LOAD revectorisée sur la version UNSCREEN de (LOAD), il suffit d'entrer “LOAD <non-de- 
fichier ext)" et le fichier sera ouvert, lu en aéaoire et interprèté. 

Si aucune erreur n’est rencontrée, le "ok" familier est affiché. 


IL faut revectoriser LOAD, SOURCE et ?ERROR sur le vocabulaire FORTH si vous devez utiliser à nouveau 
les écrans classiques, 
se AT 


Surle 
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FBASEII en FORTH 83-Standard 
pour ORIC ATMOS 


par Jean-Luc SIRET 


Puisque JEDI demande des programmes,  j'envoie 
celui-ci sans prétention. Je l'ai pompeusement 
appelé FBASE2 puisque c'est un développement à 


partir du FBASEL paru dans le JEDI no 22. Bien 
sûr pour ceux qui travaillent sur PC, il n'a pas la 
prétention de se comparer à l'autre D.... vraiment 
pas! Si vous voulez, appelez celui-ci FBASE1.007! 
IL a été conçu sur ATMOS avec le F83 écrit et 
adapté par M.ZUPAN pour cette machine. 


Pour les explications premières voir le JEDI no22 

En - moins de contrôle d'entrée des nombres. 

En + possibilité d'une recherche sélective à 
l'aide de clés ou de masque. 


Première modification: 
chaque 


le nombre de paramètres de 
champ est augmenté de 1: c'est le derhier 
chiffre qui indique si ce champ pourra servir de 
clé (1) ou non (0). Le nombre de clés maximum est 
limité ici à 10, mais peut être modifié facilement 
après le CREATE de l'écran 1 et avec les deux 10 
dans TBCLE du 2nd. Le PBUILD de déclaration de 
champ compile maintenant l'adresse du descriptif de 
chaque champ, ce qui permet une recherche plus 
rapide. 


Le principe: les clés sont mises dans des blocks 
mais transférées en mémoire vive au début de chaque 
session. Le mot PEND les sauvegarde à la fin et 
seulement à la fin. Donc le faire obligatoirement 
si le programme s'arrête pour une raison ou une 
autre avant. 


En exemple: la taille du fichier doit être prévue 
avant (au moisn sur ATMOS) et surtout le nombre de 
block qui vont recevoir les clés. Exemple: 


120 fiches de 138 octets de longueur avec 8 clés 
par fiche nécessiteront au total 21 blocks (1024) 


le block l: définition des champs 


blocks 4 au 21: contiennent les fiches proprement 


dites; 7 fiches par block (pas de 
troncature) 
block 2 et 3 pour les clés: 2 octets par clés 
donnent: 2x8x120=:1920 octets 
Dans cet exemple on écrirait 2 2 138 IREC 


Le premier 2 donne le premier 'block' des clés 
Le second 2 donne le nombre de 'block' de clés 


FILE: FRASEZ,FTH / SCAN i 


0 \ OUVERTIRE 
1 ONLY FORTH DEFINITIONS DECINAL | 
2 VARIABLE RENC VARIABLE RLEN VARIABLE RAD VARIABLE REC/BLK 


3 VÉRIABLE BLKCLE VARIABLE FNO VARIABLE CÉNDE VARIABLE NBLKCLE 
4 VARIABLE -BL VARIABLE PLOC VARIABLE PNAX VARIABLE TRAU 
à VARIABLE NBCLE VARIABLE NTYPE VARIABLE FLOC VARIABLE TAMPON 
: FHIGH TAMPON E @ ; 
CREATE [LES 9 , 0.0.0, 0: 
BLÜCK SAP ALEN 8 « + OP REC !: 
19 + JREC RLEN ! NBLKCLE ! HLKÇLE !: 

t FFIND 2x PLOC @ {+ + @ [ip FLOC ! : 
2 : FLEN FLE 8 4 +18: 

13 : FCLE FLE @ 7 + Ce Ki: 

14 : ETVPE FLOC @ 5 + C8 NTYPE ! : 

15 —: 


mn. 
Les 
. 


RECORD UP END ! 4- 1024 RLEN 8 / /MOD HLKCLE 8 + NHKÈLE € + 


La somme de ces nombres (4 ici) donne le premier 
block de fiches 
Les clés et Les fiches sont donc consécutives 


Les tris: les clés n'en sont pas au sens de dBASE 
car elles ne codent pas tout un champ, mais 
seulement les 3 premiers caractères du champ 


alphanumérique ou la partie basse numérique. La 
recherche s'effectue selon ce critère. Exemple: 


la clé 'jed' codera ‘jedi' aussi bien que ‘ jedu 
bon tabac dans...! 
Après la recherche, il y aura ïici 2 fiches 
sélectionnées et toutes les autres recherches 
s'effectueront alors sur ces deux là. 
Le tri par masque ne s'effectue que sur les 


rubriques alphanumériques. Il y a possibilité bien 
sûr d'utiliser un joker qui est le ‘?'. Evidemment, 
cette méthode est longue car il faut lire tout le 


fichier. Sur les fiches sélectionnées, il y a 
possibilité de sommer les rubriques numériques, 
mais attention ce n'est pas un calc. Le résultat 
n'est pas gardé, seulement affiché. 
Particularité de ce forth là: 

ACCENT et QHERTY permettent d'écrire l'un avec 
des minuscules accentuées, l'autre de revenir au 


standard 
AT permet d'écrire à un endroit particulier de 
l'écran (voir LOCATE). 


ONLY FORTH DEFINITIONS peut devenir  FORTH 
DEFINITIONS. 

Mais surtout la sortie sur imprimante: il faudra 
sûrement réécrire les mots des trois dernières 


lignes de l'écran 8; le PON signifie Printer-On et 
envoie en même temps l'affichage sur écran et 
l'impression. 


Quand au LINIT il est encore plus particulier 
puisqu'il envoie uniquement sur imprimante (PRINT) 
des codes d'initialisation de mon imprimante 
BROTHER M-1009. 


Voilà, c'est tout: oui je sais, je n'ai pas une 
écriture forth très forth puisque je ne met aucun 
commentaire ni sur la pile et que je suis assez 


radin en place. 


Amicalement J-L SIRET 


FILE: FBASEZ,FTH / SCAN 2 

INITIALISATION 

TBCLE © NBCLE ! 10 O0 Et -1 CLES I + C' LODP 

PMAX 6 0 O0 1 FFIND DRIF FLE IF NBCLE 10 ©) 

IF J NBCLE @ CLES + C! { NRCLE +! THEN THEN LO(P : 

t NMCLE TRAV ! -1 REGIN 1+ MP LES + C8 TRAV 8 = ENTIL : 


î PINIT DUF PLOC ! CR PHAX ! 12 -BL 5 © FND ! THCLE HERE 
TAMPON ! 1024 NELKCLE € x ALLOT NBLECLE € © DO RLKTLE & I + 
BLÜCK TAMPON € 1024 I x + 1024 CMOVE LOC : 

5 PHUILD CREATE DÙP €, HERE FLOC ! DUP 2x ALLOT 
G OÙ HERE PLOC @ [2x + ! 5 0 O0 BL HORD NUMBER DROP C. LEONE 
24 WORD C8 + ALLOT LOUP MES» : 


ï FLOC RLOC 8 FLOC € 4 + C8 +: 
: POSTT FLOC © DP 2+ Ce SNAP 3 + CB SHAF AT : 


en 


= | 


JEDS no$S -avrl /48+ 


ILES FHASES,FTH / SCRNK 3 FILE: FBASEZ.FTH / SCRM# 4 
\ ENTREE FICHE (1) \ ENTRÉE FICHE (2 


n 

1: FDISPLAY DUF DLF CB SAP 1+ CE SUAP AT 8 + COUNT TYFE ? NUMI PAD Î- SPAN 8 OVER C! NUMEER? DROF : 

2  POSIT FLEN 6 D 45 ENIT LOF ; : FNN FLOCI NUMI OVER CCD j 

3 à PDISPLAY ELS PMAN € © DO I FFIND FDISPLAY LOF ; : FTEXT FLOC1 DUF FLEN BLANK PAD SWAP SPAN 8 CNOVE FONDE : 
4 5 ENTRE PAD DUP 126 BLANK FLEN EXPELT SPAN 6 dé : 

5 + INPUT BK 8 DR IN € RD BLK ! GRERY BL WORD NUMBER DROP ‘ FOET OP FMI! FFIND OROF FLEN > 

&  RYSIN TR: HE ! ; IF POSIT FTYPE ENTRE IF NTVPE @ CASE 9 OF FTEXT ENHOF 
7: WAIT CR CR ." Appuyez sur une touche pour continuer 1 OF FNOM DROP SAP C' ENDOF 

8 KEY ORGF ; 2 CF FNM DROP SWAP ! END 

9 + ASK ." (O/N)2 " KEV DUP ASCII O = SHAP ASCII 0 = R ; 3 OF FNUM DROP SUP !_ ENDOF 

10 4 © FMM ROT Di ENDOF 

19 5 D' ODIP ? 2+ SAP DR; 9 Of FNIM ROT D! ENUKE 

13 : DB DUP 2+ 6 SWF E : ENDCASE FÈLE IF TAMPON @ 24 CPLACE + COUDE @ SNAP ! THEN 
17 + CPLACE NBCLE @ AND © {- * FND & NMCLE + 2x : THEN THEN ; 

14 : FOUDRE PAD CE 32 - 100 * PAD + CB 32 - 10 + + FAD + Cê : P6ET UPDATE PHAX 8 O DO 1 FBET LOUP : 


5 3-4+0C00E : =) — 


FILE: FRASEZ.FTH / SERNE S FILE: FRAGE2,FTH / SCAN 6 
Q \ LECTURE FICHE \ SELECTION LE FICHES 

ï PNEXT PHIGH 1+ DUP TAMPON 6 ! RECORD DRCP : VARIABLE CPTRI CREATE FICHTRE 254 ALLOT 

ï PADL POISPLAY PET 3 ? INITRI 256 0 OÙ E + E FICHIRI + C! LODP PHIGH ÉPTRI !: 
t FR SMAF OVER DAES €# # 4 44 HOLD HS STEN #} TYPE SPACE : PREND FICHIRI + C8 : 


5 MET PREND CPTRI & FICHIRI + C! 1 CPTRI +! ; 
: AFFICH FTYPE FLOC{ FLEN NTYPE € CASE 
9 OF TYPE ENDOF 1 OF SHAF CO SAP .R ENDOF  : FRECH EMA 6 NMCLE 2x TAMPON © + + TRAV ! CPTRI 8 Q CPTRI 
3 OF SWAF 6 SW .R ENIOF 3 OF DROP © O .FR  ENDOF 0 00 1 PREND {- NECLE @ 2x « TRAV @ + & CUONE 8 = - 
4 OF SAP D6 ROT D.R ENDOF S OF DROP D@ FR END IF I MT THEN LOOP : 


QD SA D SN me D en 


ENDCASE : ° 
10 : FPUT DUP FND ! FFIND DROP POSIT AFFICH 3 : FSAISI OUP FN ! FFIND CR 8 + COUNT TYPE ." :" ENTRE 
{1 + PPUT 10 0 AT ." Fiche " NO @ 3 .R MAX @ O DO I FFUT LOQP ; IF FTVPE NTYPE & 9 = IF FCODE ELSE NIMI DROP CCODE ! 


2 : PSELECT CLS CR ." Entrez le numero d'enregistrement: " INPUT THEN FRECH THEN : 
13  DUF PHIGH © IF CR ." Pas d'enregistrement * CR DROP 0 ELGE : PRECH CLS NBCLE B O= IF ." Clés de tri inexistantes" WAIT 
14 RECORD [RDF 1 THEN : ELSE NECLE @ O0 O9 I CLES + C8 FSAISI CR LOOP THEN ; 


—_ 7 


FILE: FHASEZ.FTH / SCRNR 7 FILE: FBASE?.FTH / SCRM# 9 

9 \ LISTE SELECTION FAR NAGQUE ALPHA \ COMPARAISON MASQUE ET EDITION 

1 : FICH? CPTRI € € JF “Aucune fiche silectionnie" WAIT © : PCOMP CLS FICH? IF PSAIS CPTRI @ CPTRI OFF 

2 ELSE -1 THEN 0 ?D0 I PREND RECORD PAD RLEN 8 COMPTEXT 

3 FLIST CLS FICH? IF ÉprRI 8 0 DO POTSPLAY 1 FREND RECORD OROF IF LE MET THEN LOCP THEN ; 

4 PPUT WAIT CLS LODP THEN ; 

SI î Au CLS PMAX @ G O0 I FFIND 5 + COMINT TYPE SPACE AGE 
4 3 COMPTEXT TRAV ON 1 BEGIN R 2DUP R + R> ROT OVER + ROT ." 0" TRUE ELSE .® N° FALSE THEN PAD I + CU ER LOOP : 
7  QUP CE 43 = IF 2DROF ELSE C@ SWAP C6 <> IF TRAV OFF . 

: THEN 1- DUP -1 = TRAV @ O= OR INTIL DROP 2IROP TRAV € : FEDIT A + C8 IF LI FFINE DROP AFFICH 

Ë LA 

10 : FSAIS FFINE 4 + CE FTVPE NTVPE & 9 = : PEDIT FICH? IF CPTRI 6 © D I FREND RECORD DR 

11 IF AISIT PAL + FLEN EXPECT ELSE DROF THEN ; FEDIT CR LONF THEN : 

2 ALSO PRINTER ALSD FORTH DÉFINITIONS 


13 : PSAIS PDISPLAY FAD RLEN © 63 FILL PMAX © 0 On I FSAIS LOMP s ? LINIT 1 82 27 15 60 27 & 0 DO (PRINT: LOOF : 
; : LETIT LINIT PON PEDIT POFF + ONLY FORTH DEFINITION: 


FILE: FRASEZ.FTH / SCAN 9 FILE: FBASE2.FTH / SCRN# 10 


Q \ SOMME SLR RUBRIQUE NUMERIQUE \ FIN 

1°? INIFAD FAD PMAX @ 4 x ERAGE ; ï PLIST ÉLS PHIGH 1+ 1 700 [ 3 .R SPACE 

2: FCOPTE RECORD DROP PMAX E © DO I FFIND DROP FTYPE FLOCI 1 RECORD DROP 2 © DO I FFIND DROP FLOCI FLEN -TRAILING TYPE 
3 NIYPE B CASE 9 Of DROP O 0 ENDAF 1 Of CE DO ENDF 2F € 0 SPACE LOOP CR [ 23 MOD Q= IF CR NAIT CLS THEN LOCP AIT : 

4  ENDOF 3 OF € Q ENDOF 4 OF D@ ENINF 5 OF DB ENDCF ENNCASE 

3 PADI 4% + D6 DH PAD I 4 «+ D! LOF : : PEND CR CR NBLKOLE @ © DO TAMPON 8 1024 I x + HLKCLE @ I + 
ô BLOCK 1024 CMOVE UPDATE LP ," Sauvegarde des fichiers® CR 
7 3 RESULT PMAX © O DO I FFIND FTVPE NTYPE @ 9 <> IF SAVE-BFFERS ." Au-revoir" CR ; 

3 34 COUNT TYPE SPACE PAD I 4» + DE NTYFE € DUP 3 = SWA 5 = 

3 OR IF .FR ELSE D, THEN CR ELSE DROP THEN LOF ; 


11: PCOMPTE CLS FICHT IF INIPAD CPTRI @ 0 D I PREND FCOMPTE LOUP 
2 RESILT HAIT THEN ; 


FILE: FBASE2.FTH / SCRN# 11 FILE: FRASEZ,FTH / SCRM# 12 
1 \ MENU DE TRI \ MEN FINAL 
5 PMENI2 BEGIN CLS 10 2 AT ." Recherche/Tri/Affichage" CR 5 MEMS ACCENT BEGIN CLS 10 3 AT . ae de fichier 
; 103 AT ." Fiches sélectionntes : * CFTRI @ . CR 10 3 AT .* Nombre de fiches : “_PHIGH 
4 " ù - Recherche par cles" CR à & ne "1 - Ajouter" CR & SAT, Lister" CR 
4 ." 2 - Lister les fiches" CR 610 AT ." 3 - Afficher fiche" CR 
à ma Fri par masques * CR & 12 À : "4 - Changer fiche " CR 4 8 AT MS - Tri "CR 
& ." 4 - Edition sur fcran" CR & 16 AT " 9 - Quitter" CR 
7 HT Edition sur ingrimante" CR CE 9 20 AT ." Votre choix" KEY DUF 37 <> IF 
5 "4 Somne des rubrinues num piques” ER CASE 49 OF PNEXT PADD © ENDOF 20 Of FLIST G ENDOF 
5 ." $ - Retourner au nenu GS dent" CR Si OF PSELECT IF PDHISPLAY FPUT THEN WAIT 9 ENDKF 
10 ," Votre choix :" KEY LP 52 OF SELECT IF POISPLAY FPUT PET THEN 0 ENDOF 


fi 45 OF FRECH 0 ENDOF 50 LT à ENIOF 33 CF INITRE PMENUS © ENDOF 
1z St OF PCOMF 0 ENDOF 32 OF PRUBR CLS PEDIT MAIT O ENDGF Q SWRF ENDCASE ELSE DROP PEND -i THEN INTIL OHERTY : 
{3 53 QF ERUBR CLS LERIT NAIT 0 ENDOF Sd OF PCOMFTE 0 ENDCF 


14 5 SAP ENDCASE ELSE DROP -1 THEN UNTIL 3; 
* CR CR .{ FRASES est conpile à CR ,4 Page AT 


Si une erreur est décelée, un “duap* est effectué du début du tampon disque à la fin du not erroné. 
{SQURCE) est une version aodifiée du standard. BLK est utilisé cogne drapeau indiquant si le flot 


d'entrée provient du clavier ou du taepon disque. 


PERROR aussi est une version aodifiée : 
“duape" le taapon, 


Voici un exesple d’une session, où l’on suppose que 3 fichiers ont été créés : 


au lieu de laisser les parañètres pour la coamande WHERE, il 


FILEA.BLK, FILEB,BLK, 


FILEC.BLK, et que les 2 dernières lignes de code dans FILEA.BLK sont : 


CR .{ Chargement de FILEB.BLK } 
LOAD FILEB,BLK 


et que les 2 dernières lignes de FILEB.BLK sont 


CR .{ Chargement de FILEC,BLK } 
LOAD FILEC,BLK 


LOAD FILEA, BLK 


VOLKS-FORTH 
FORTH 83-Standard 
pour ATARI 260ST, 520ST, 520ST+ 


réalisé par FIG HAMBOURG (RFA) 


Suite aux différents contacts pris entre 
L'ASSOCIATION JEDI et Le FORTH INTEREST GROUP de 
HAMBOURG, Mr Bernd PENNEMANN nous a expédié un 


échantillon de la version F83 pour ATARI, nommé 
Volks-FORTH et, ce qui ne gâte rien, est 'public 
domain'. Il est accompagné d'une notice très 


complète et très dense écrite en allemand. Pour les 
volontaires traducteurs, FIG-HAMBOURG recherche des 


bénévoles pour traduire d'allemand en anglais 
ladite notice. 

Pour notre part, l'ASSOCIATION JEDI diffusera les 
disquettes à la demande. Mais comme l'association 
propose déjà un manuel pour la version MSDOS et 
CP/M, nous ne ferons part que des différences 


existantes entre Volks-FORTH et les versions MSDOS- 


CP/M, nottament en matière de graphisme, DOS, 
etc... De plus, FIG-HAMBOURG accepte que nous 
reprenions dans notre magazine des programmes 


réalisés pour V-FORTH (c'est plus court que Volks- 
FORTH) et facilement adaptables au F83 MSDOS-CP/M. 


Les définitions de UNSCREEN étant chargées, il suffit de faire 


pour obtenir l'interprétation (la coapilation) des 3 fichiers, 


Sarfe de 


FRge 16 


Et FEASEXZ,FTH / SCRM# 1 
G) \ FRASE! EXEMPLE 
} 9 PRUIILD ANNUAIRE 
) Gi 02 01 09 31 9 00 À NOH° 
1 03 02 03 09 22 9 31 0 PRENOM" 
4) 95 92 06 02 38 9 540 ADRESSE" 
3) 08 02 08 14 05 4 91 0 CODE POSTAL" 
bi 10 02 11 02 38 9 S4 1 COMME" 
3 12 ï 5 134 0 TELFFHONE" 


IH) Ÿ La premiere fois initialisation 


(12) * 2 1 134 IREC 2 ALOCK 1024 ERASE UFDATE SAVE-HFFERS 
(13) \ À toutes les fois 
(14) 2 1 18@ IREC ANAUAIRE PINIT MEN! 


PROLOGUE 
Tout comme la version F83 de Laxen et Perry, 
diffusée pour les système MSDOS et CP/M, V-FORTH 


est du domaine public et s'inspire largement de la 
syntaxe de F83. Il a au départ été conçu pour les 
systèmes COMMODORE 64 (C64), machine très répandue 
en Allemagne Fédérale. À l'apparition des premiers 
ATARI de la série ST, V-FORTH y a été adapté. Le 
système de traçage de l'exécution d'une routine a 
été amélioré, les outils spécifiques ST et la 
bibliothèque GEM créés. Dans la version actuelle 
3.8, l'éditeur GEM est disponible, le code est 
relogeable, permettant ainsi un développement aisé 
des applications. 


POURQUOI PROGRAMMER AVEC V-FORTH83 ? 


est un outil incomparablement pratique et 

La librairie des routines exécutables, le 
compilateur, l'éditeur et le débuggeur sont 
disponibles en permanence, rendant superflu le 
cycle fastidieux ECLG ("Edit, Compile, Link and 
Go"). Le code peut être réalisé, compilé et testé 
module par module. Le débuggeur intégré est idéal 
pour tester l'exécution d'une définition; iln'ya 
pas besoin de faire appel à un dump hexa ou à un 
listing d'assemblage démesuré et n'ayant que peu de 
rapport avec le texte source. 
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V-FORTH 
compact. 
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L'autre aspect est la gestion multi-tâche. Ainsi, 
un programme peut être partagé en mots ou modules 
indépendants et dont l'exécution est autonome. Ceci 
n'est pas concevable dans la majorité des langages. 


Enfin, V-FORTH dispose d'une foule de détails dont 
ne disposent pas les autres systèmes FORTH. 


V-FORTH est disponible en trois disquettes et 
dispose d'un traceur, décompilateur, système multi- 
tâche, éditeur, assembleur et désassembleur, 
bibliothèque GEM,  demos graphiques, interface 
impression... 


Encore une chose: vous pouvez céder V-FORTH à vos 
amis sans rendre de compte. Mais si quelqu'un le 
cède contre argent avec bénéfice, nous lui en 
tiendrions rigueur jusqu'au bout du monde et à la 
fin de ses jours! 


Le support technique et logiciel de V-FORTH est 
assuré par FIG HAMBOURG et son magazine "VIERTE 
DIMENSION - Forth Magazin", son réseau FORTH avec 
boîtes aux lettres: 


FORTH GESELLSCHAFT e.V. 

Friedensalle 92 

D - 2000 HAMBURG 50 ( RFA/BRD ) 

tel (19/49) 040 - 390 42 04 ligne directe mardi 
de 18h à 20h. NE PAS COMPOSER LE Ô de 040 depuis la 
France (liaison V21-V23 7bits - 300, 1200 bds). 


Envoyez-nous vos remarques, programmes terminés ou 


inachevés, ‘idées concernant V-FORTH, articles 
publiables, bref: envoyez tout ce qui concerne V- 
FORTH. Et naturellement: compléments, corrections 


et erreurs éventuelles concernant le manuel V- 


FORTH. (Ndir: on n'y manquera pas). 


Si V-FORTH vous plait, encouragez l'auteur, montant 
20 DM,-, car la production de V-FORTH comme celle 
du manuel n'est pas gratuite, cette somme 
permettant de couvrir les frais. 


Pour l'auteur de VolksFORTH: 


Bernd PENNEMANN 
Steilshooper Str. 46 
D - 2000 HAMBURG 60  ( RFA/BRD ) 

Le manuel a été réalisé par Bernd PENNEMANN,_ Klaus 
SCHLEISIEK, Georg REHFELD, Dietrich WEINECK, 
membres de F1G-HAMBOURG. 


Lere PARTIE ON DEMARRE 


Pour bien comprendre l'utilisation de VolksFORTH83, 
il faut étudier attentivement le présent manuel. 
Afin de progresser plus rapidement, nous vous 
décrirons l'essentiel dans ce chapitre: 


- coment manipuler les disquettes 

- comment démarrer le système 

- comment créer une application définitive 

= comment définir son propre environnement de 
travail. 


MANIPULATION DES DISQUETTES 


Avec votre manuel, vous avez reçu trois disquettes. 
Pensez toujours à en faire des copies de sécurité. 


Le risque de perdre des fichiers est grand, évitez 
de laissez votre FORTH entre toutes les mains - 
verrouillez les disquettes en écriturell Sur une 


des disquettes se trouve le programme &TH.PRG, et 
FORTHKER.PRG ainsi qu'un texte de documentation et 


le programme de démonstration "Super copy'. Cette 
disquette sera nommée la disquette système. 
&TH.PRG est le système de travail normal, 


FORTHKER.PRG une version minimale ne contenant que 
le noyau du langage. Avec celle-ci, vous pouvez 
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définir une version FORTH avec éditeur personnalisé 
ou d'autres fonctions graphiques puis avec 
SAVESYSTEM la sauvegarder comme version définitive. 
Dans le même ordre d'idée, vous pouvez créer une 
application définitive où ‘le tronc FORTH' 
n'apparait plus (un exemple en est SUPER COPY sur 
la disquette système). 4TH.PRG est un système de 
travail complet disposant de l'interface de gestion 
de fichiers, l'éditeur, l'assembleur, les outils, 
etc... 


Les deux autres disquettes contiennent le texte 
source du système. Taper FILES (analogue à WORDS) 
pour la liste des fichiers. Dans le fichier 
FORTH 83.SCR figure le texte source du noyau du 
langage FORTH. Entendu que ce texte est destiné à 
étre traité par un méta-compilateur, il est le 
reflet exact de FORTHKER.PRG. Vous pouvez voir le 
comilateur, et si vous le désirez, voir le 
fonctionnement de VolksFORTH83. Dans le fichier 


STARTUP.SCR se trouve un bloc de chargement, 
chargé de compiler les différentes parties 
appartenant à 4THPRG. À partir de ce bloc de 
chargement, 4TH.PRG est construit en complétant 
FORTHKER.PRG» 


PREMIERS PAS 


Mettez la disquette système dans le lecteur B, le 
texte source du fichier 2 dans le lecteur A (si 
vous ne disposez que d'un seul lecteur, il faudra 
procéder à des substitutions de disquettes). Lancez 
&TH.PRG en cliquant à l'aide de la souris. 
VolksFORTH83 s'annonce accompagné de son numéro de 
version. 


Tapez maintenant: 


use tutorial.scr (et return) 
11 (et return) 


A la question ‘Enter your ID :' répondez par appui 
sur RETURN. Vous vous trouvez maintenant dans 
l'éditeur et vous pouvez maintenant consulter 
l'écran courant et les suivants et apprendre les 
rudiments des manipulations de l'éditeur. L'éditeur 
fonctionne intégralement sous environnement GEM, ce 
qui ne vous changera guère de vos habitudes. 
Cependant, vous trouverez des explications 
complémentaires à la suite. Testez un peu les 
nn puis quittez l'éditeur en tapant sur 
ESC). 


Vous pouvez maintenant voir la démo-graphique. Elle 
se trouve sur la même disquette. Mais pour la faire 
fonctionner, il faut utiliser l'assembleur de la 
disquette 1. Pour celà sortez la disquette système 
du Lecteur B et introduisez à la place la disquette 
des fichiers 1. Tapez: 
include demo.scr (et return) 

Le lecteur disque tourne, vous voyez quels sont les 
blocs compilés puis quelques exemples graphiques. 
Après chaque image, passez à la séquence suivante 
par simple appui sur une touche ou tout interrompre 
par appui sur (ESC). 


ET MAINTENANT LA SUITE... 


Nous souhaitons maintenant compiler quelques mots 
et pour ce faire créer un nouveau fichier source. 
Pour ce faire, introduisez une nouvelle disquette 
dans le lecteur A. tapez ensuite: 
makefile first.scr 2 more (et return) 

ce qui crée le fichier nommé FIRST.SCR d'une taille 
de deux blocs (2048 octets), contenant les écrans 
numérotés 0 et 1. Pour introduire des définitions 
dans le bloc écran 1, appeler à nouveau l'éditeur 
en tapant 


LI (et return) 
Dans la partie haute de l'écran on introduira une 
courte description du contenu de l'écran. Ainsi, 


avec le mot INDEX pourra-t-on se faire une idée du 
contenu d'un fichier. Ecrivez donc en commençant en 
début de ligne 


"Mon premier programme FORTH 


Le signe ‘ (backschlash) sert, en empèchant la 
compilation du contenu de la ligne situé à la suite 
de ce signe, à signaler un commentaire. Vous avez 
certainement remarqué que la date et les initiales 
des auteurs de programmes figuraient à droite de 
cette même ligne dans les autres fichiers. Cette 
identification est inscrite automatiquement par 
l'éditeur lors du premier appel de ID. Vous pouvez 
installer votre propre identification en tapant 
simultanément sur les touches CTRL-G ou en 
sélectionnant sous le menu GET-ID. 


Laissons la seconde ligne libre, 
ligne définissons: 


dans la troisième 


: test ." Ceci est mon premier ‘programme'." ; 
Quittons l'éditeur en tapant CTRL-S. 
modifié est écrit sur le 
maintenant le compilateur par: 


Le bloc ainsi 
disque. Appelons 


1 load (et return) 

A une vitesse équivalente à 'C' ou ‘Pascal! 
mini programme est compilé et est prèt à être 
exécuté. Tapons, pour voir, le mot WORDS, afin de 
s'assurer que votre nouveau mot TEST fiqure bien en 
tête du dictionnaire (taper sur ESC) pour 
interrompre l'exécution de WORDS, ou sur une autre 
touche pour le stopper temporairement). Pour tester 
l'exécution de notre premier mot, tapons: 


test 


notre 


(et return) 


et là, voyez-vous, il se passe quelque chose. C'est 
Joli, mais nettement insuffisant pour les pros que 
vous êtes, aussi  supprimons le mot TEST 
précédemment compilé en tapant: 


forget test 


rappelons l'éditeur en tapant V . Devant la chaîne 
nous allons mettre CR. Le mot TEST ressemble 
maintenant à: ° 


: test cr ." Ceci est mon premier 'programme'." ; 


puis le recompilons. Ceci vous montre combien il 
est aisé d'écrire en FORTH, tester et faire 
exécuter des parties de programmes. 


DEVELOPPER UNE APPLICATION 


Nous voulons maintenant étoffer notre 
Pour ce faire, nous allons le grossir un peu 
(appeler l'éditeur en tapant V). Placez-vous à 
la suite de la définition de TEST et rentrez: 


"programme". 


: runalone test key drop bye ; 


RUNALONE exécute d'abord TEST, attend l'appui sur 
une touche et renvoie au moniteur. Compilez cette 
nouvelle définition, mais n'exécutez pas RUNALONE, 
sinon vous quittez FORTH. 


VolksFORTH83 est prévu pour résoudre deux 
situations. Dans les mots COLD et RESTART se 
trouvent deux vecteurs nommés 'COLD et 'RESTART qui 
en temps ordinaire ne font rien, mais peuvent être 
intialisés ultérieurement. Nous manipulerons ici 
"COLD. Pour ce faire tapons: 


(et return., onne le 
répétera plus) 


" runalone is ‘cold 


et sauvegardez le tout sur disquette en tapant 
savesystem myprog.prg 


Rangez ensuite MYPROG.PRG en cliquant. Vous 


de créer votre première application! 


venez 


Cependant, le FORTH primitif pourtant très compact 
nécessite un espace mémoire d'au moins 40k, ceci 
pour afficher une ridicule petite chaîne de 
caractères ?? Quelque chose clache. Naturellement, 


nous avons sauvegardé en même temps le système 
FORTH, la gestion disque, l'assembleur, la moitié 
de la bibliothèque GEM, l'éditeur, etc... qui ne 


sont certainement pas utiles pour notre programme. 


Pour régler ce problème, nous disposons du fichier 
FORTHKER.PRG. Ce programme ne contient que le noyau 
du système et l'interface de gestion de fichier. 
Chargez FORTHER.PRG et compilez votre application 
en tapant: 


include first.scr 


Puis comme précédemment, relions RUNALONE à "COLD 
et sauvegardons le système sur disque. Vous 
disposez maintenant d'une version compacte. 
Naturellement, cette version peut encore être 
simplifiée, mais pour celà il faut disposer d'un 
méta-compilateur lequel ne  compilera que 


l'essentiel des parties du système utilisées par 
notre programme. 


Selon le même principe on peut aussi compiler des 
programmes plus ambitieux et les sauvegarder commes 
programmes personnalisés. 


POUR LES CHEVRONES DU FORTH 


On peut, comme dans le précédent exemple, sans 
faire appel au méta-comilateur, récupérer &k 
d'espace mémoire. Charger d'abord FORTHKER.PRG puis 
entrez: 


" b1kÿ Is makeview 
" noop Is custom-remove 
! STr/w Is r/w 

direct 


Ainsi les mots vectorisés gérant l'interface de 
gestion de Ffichers sont déconnectés et remplacés 
par l'accès direct. 


Le premier mot de l'inteface de gestion de fichiers 


situé après SAVESYSTEM est DOS. Mais ce mot ne 
peut être oublié par FORGET, car situé dans la 
partie dictionnaire protégée. Faites vos essais 
avec prudence; vous recevrez le message 'DOS is 
protected'. Pour régler cette situation, nous 
disposons du mot (FORGET 

* Dos )name 4- (forget save 


Ainsi vous disposez d'un système sans 
Sauvegardez-le sur disquette en tapant 


'superflu'. 


savesystem minimal.prg 


Naturellement, nous ne pouvons plus charger notre 
fichier d'essai avec INCLUDE, car il n'y a plus 
d'interface de gestion de disque. Pour ce faire, 
nous rechercherons les blocs correspondants en 
accès direct.  Chargeons à nouveau  4TH.PRG, 
déconnectons la gestion des fichiers en tapant 


direct 
puis voyons le contenu du disque par 


1 500 index 
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(500 c'est peut être un peu beaucoup, mais INDEX 
s'arrète automatiquement à la lecture du dernier 


bloc disquette ou fichier.) 


Notre écran d'essai doit certainement figurer dans 
un des blocs, mais nous prenons connaissance 
également du contenu de la disquette. Prenez note 
du numéro n du bloc contenant l'écran test et 
compilez son contenu sans faire appel à un nom de 
fichier en tapant 

n load 
INSTALLATION D'UN SYSTEME PERSONNAL1SE 
Le programme 4TH.PRG est conçu en tant que version 
de travail. IL contient toutes les parties 
essentielles telles que l'éditeur,  l'inteface 
imprimante, les outils, le graphisme GEM, le 
décompilateur, le débuggeur etc... Si vous ne 
désirez pas disposer de toutes ces fonctions, vous 
pouvez à tout moment créer votre version adaptée. 
Les clés de ce mécanisme fifguernt dans le fichier 
STARTUP.SCR sur la disquette 1. Oblitérez le 
chargement des nctions non souhaitées en les 
faisant précéder la ligne correspondante d'une 
barre de fraction inverse ou en effaçant le contenu 
de toute la ligne. De même vous pouvez inclure des 
fchiers personnels. 


Lorsque le bloc de chargement correspond à vos 
souhaits,sauvegardez-le en tapant CTRL-S et quittez 
le système par BYE. Chargez ensuite FORTHKER.PRG, 
puis tapez: 


include startup.scr 


Ce qui compile votre système complet et 
personnalisé. Introduisez la disquette système et 
tapez 


savesystem 4TH.PRG 


et après avoir pensé à sauvegarder votre ancienne 
version de  4TH.PRG (toujours des copies de 
sécurité!!! = sicherheitskopiel!!). Au prochain 
chargement de 4TH.PRG, vous disposerez de 'votre' 
système. Naturellement, vous pouvez aussi 
sauvegarder votre système sous un autre nom à 
l'aide de SAVESYSTEM. 


De même lors de la sauvegarde de 
personnalisé, vous pouvez 
numérique par 


votre système 
modifier la base 


hex 


ce qui peut être utile dans certains cas. Cette 
modification de base numérique est sauvegardée, 
puis conservée lors du rechargement du système (ce 
qui permet d'estimer, pour exemple, si l'espace 
mémoire 978584 réside dans la mémoire vidéo ou 
non?) avec SAVESYSTEM, comme décrit précédemment. 


A signaler cependant que le chargement des blocs 
écrans d'un fichier risque d'être un peu perturbé 
si le chargement s'effectue dans une base numérique 
différente de la base décimale. 
n'exploitent pas de préfixes $ pour hexadécimal, & 


pour décimal et % pour binaire, il sera plus 
judicieux de contrôler la base numérique dans 
chaque partie de programme concernée. Vous 
trouverez de nombreux exemples dans les écrans 


source. 


Si vous ne disposez que d'un seul lecteur 
disquette, verrouillez la recherche multi-lecteur 
(normalement installée pour rechercher sur lecteur 


À, puis sur lecteur B) en activant la séquence 
path ; a: 


et sauvegardez cette adaptation par SAVESYSTEME. 


Comme les nombres 


SAUVEGARDE SYSTEME SUR DISQUETTE DOUBLE FACE 


Si vous disposez d'un lecteur de disquette double 
face, il est possible d'y sauvegarder le système. 
Le problème est, qu'en cas d'accès à un fichier, 
celui-ci ne soit partagé sur deux faces. IL est 
conseillé de mettre toutes les parties du système 
sur une seule face. Pour ce faire, précisez par DIR 
et PATH l'ordre de recherche sur disque et ses 
limites. 


On peut aussi travailler sur RAM-disk, mais ce 
n'est pas conseillé. FORTH est très près de la 
machine et en cas de plantage, vous perdriez toutes 
les informations. Vous pouvez travailler en RAM- 
disk en chargeant les commandes contenues dans le 
fichier RAMISK.SCR. Ainsi vous pourrez stocker de 
nombreux blocks en RAM (en plus de FORTH), ce qui 
diminue les temps d'accès disque. En cas d'édition, 
mettez à jour le contenu du disque physique en 
transférant fréquemment le contenu du RAM-disk sur 
une disquette, ceci après un CTRL-S. Vous éviterez 
ainsi les désagréments d'une disparition de vos 
fichiers toujours possible. 


IMPRESSION D'UN FICHIER SOURCE 


I1 peut être très utile d'imprimer le texte d'un 
fichier source, pour prendre connaissance nottament 
de la manière dont on débute avec FORTH. En dehors 
des fichiers source illustrés par de nombreux 
commentaires, vous trouverez des renseignements 
très intéressants dans README.DOC. 


Chargez d'abord l'interface imprimante en tapant: 
include printer.scr 


Pour imprimer un fichier avec ses écrans 


commentaires associés, on tape: 
use nom-de-fichier listing 


Pour imprimer un fichier sans ses écrans 


commentaires associés, on tape: 


use nom-de-fichier printall 


… a suivre... 


Mon pote Maveei, depuis 
qu°r/ a r&gu  Velk-FORTH 
Peur son ATAAI, il dé 
serlte le compteir {! 


exe 


